diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-12-31 23:44:35 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-12-31 23:44:35 +0000 |
| commit | b9893e571ac0b667e330dd75c20bb498b61c4750 (patch) | |
| tree | 5b23ca313389dbad9764a6a0f1b97156c4562d99 /vms | |
| parent | 68cad0541e26db0a9da20fbbfa9c6f9402e4cde7 (diff) | |
| download | perl-b9893e571ac0b667e330dd75c20bb498b61c4750.tar.gz | |
Fix VMS::Stdio bug introduced in 32713.
p4raw-id: //depot/perl@32791
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ext/Stdio/Stdio.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/ext/Stdio/Stdio.xs b/vms/ext/Stdio/Stdio.xs index e92b0fd416..c50bacb3f3 100644 --- a/vms/ext/Stdio/Stdio.xs +++ b/vms/ext/Stdio/Stdio.xs @@ -349,7 +349,7 @@ vmsopen(spec,...) fp = fopen(spec,mode,args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7]); break; } - if (!fp) { + if (fp != NULL) { pio_fp = PerlIO_fdopen(fileno(fp),mode); fh = newFH(pio_fp,(mode[1] ? '+' : (mode[0] == 'r' ? '<' : (mode[0] == 'a' ? 'a' : '>')))); ST(0) = (fh ? sv_2mortal(fh) : &PL_sv_undef); |