From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 11 Jul 2002 11:09:03 +0000 (-0500)
Subject: VMS::Stdio fixups for mode arg to PerlIO_importFILE
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6700e351e95075f6f63aa2e498858d6df40b447c;p=p5sagit%2Fp5-mst-13.2.git

VMS::Stdio fixups for mode arg to PerlIO_importFILE
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a05111b05b9535cbf2914@[172.16.52.1]>

p4raw-id: //depot/perl@17483
---

diff --git a/vms/ext/Stdio/Stdio.xs b/vms/ext/Stdio/Stdio.xs
index 75d87b3..d725923 100644
--- a/vms/ext/Stdio/Stdio.xs
+++ b/vms/ext/Stdio/Stdio.xs
@@ -348,7 +348,7 @@ vmsopen(spec,...)
 	        break;
 	    }
            if (fp != Null(FILE*)) {
-             pio_fp = PerlIO_importFILE(fp,0);
+             pio_fp = PerlIO_importFILE(fp,mode);
              fh = newFH(pio_fp,(mode[1] ? '+' : (mode[0] == 'r' ? '<' : (mode[0] == 'a' ? 'a' : '>'))));
 	     ST(0) = (fh ? sv_2mortal(fh) : &PL_sv_undef);
 	    }
@@ -408,7 +408,7 @@ vmssysopen(spec,mode,perm,...)
 	    i = mode & 3;
 	    if (fd >= 0 &&
               ((fp = fdopen(fd, &("r\000w\000r+"[2*i]))) != Null(FILE*))) {
-             pio_fp = PerlIO_importFILE(fp,0);
+             pio_fp = PerlIO_importFILE(fp,&("r\000w\000r+"[2*i]));
              fh = newFH(pio_fp,"<>++"[i]);
 	     ST(0) = (fh ? sv_2mortal(fh) : &PL_sv_undef);
 	    }