From 6700e351e95075f6f63aa2e498858d6df40b447c Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Thu, 11 Jul 2002 06:09:03 -0500 Subject: VMS::Stdio fixups for mode arg to PerlIO_importFILE From: "Craig A. Berry" Message-Id: p4raw-id: //depot/perl@17483 --- vms/ext/Stdio/Stdio.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/vms/ext/Stdio/Stdio.xs b/vms/ext/Stdio/Stdio.xs index 75d87b371a..d7259234ee 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); } -- cgit v1.2.1