[Libsysio-commit] cplant: libsysio/src truncate.c

[Ruth K. <rk...@us...>]

Update of /cvsroot/libsysio/libsysio/src
In directory sc8-pr-cvs1:/tmp/cvs-serv27657

Modified Files:
      Tag: cplant
	truncate.c 
Log Message:
fix for fortran print - it calls truncate...on stdout

Index: truncate.c
===================================================================
RCS file: /cvsroot/libsysio/libsysio/src/truncate.c,v
retrieving revision 1.3.10.1
retrieving revision 1.3.10.2
diff -u -w -b -B -p -r1.3.10.1 -r1.3.10.2
--- truncate.c	14 Oct 2003 23:39:36 -0000	1.3.10.1
+++ truncate.c	15 Oct 2003 19:36:32 -0000	1.3.10.2
@@ -68,7 +68,7 @@ do_truncate(struct pnode *pno, struct in
 		ino = pno->p_base->pb_ino;
 	if (!ino)
 		return -EBADF;
-	if (!S_ISREG(ino->i_mode))
+	if (!S_ISREG(ino->i_mode) && !S_ISCHR(ino->i_mode))
 		return -EISDIR;				/* for others too? */
 
 	(void )memset(&stbuf, 0, sizeof(stbuf));