perl 5.003_07: pp_sys.c

Date: Wed, 9 Oct 1996 19:07:24 GMT
From: Chris Faylor <cgf@bbc.com>

The problem is that SCO apparently needs to have a file opened
with write privileges for chsize to work correctly.

diff --git a/pp_sys.c b/pp_sys.c
index 72ea495..8ce02b5 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1286,7 +1286,7 @@ PP(pp_truncate)
        {
            int tmpfd;
 
-           if ((tmpfd = open(SvPV (sv, na), 0)) < 0)
+           if ((tmpfd = open(SvPV (sv, na), O_RDWR)) < 0)
                result = 0;
            else {
                if (my_chsize(tmpfd, len) < 0)