diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-07-11 06:09:03 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-11 15:32:31 +0000 |
| commit | 6700e351e95075f6f63aa2e498858d6df40b447c (patch) | |
| tree | 8681b6f12e80299b309459070bec2877db011ee9 /vms | |
| parent | 33942fbf7b4a617147456dd24de24149bcafc642 (diff) | |
| download | perl-6700e351e95075f6f63aa2e498858d6df40b447c.tar.gz | |
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
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ext/Stdio/Stdio.xs | 4 |
1 files 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); } |