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 (file)
--- 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);
            }