Change 32791 by [EMAIL PROTECTED] on 2007/12/31 23:44:35
Fix VMS::Stdio bug introduced in 32713.
Affected files ...
... //depot/perl/vms/ext/Stdio/Stdio.xs#20 edit
Differences ...
==== //depot/perl/vms/ext/Stdio/Stdio.xs#20 (text) ====
Index: perl/vms/ext/Stdio/Stdio.xs
--- perl/vms/ext/Stdio/Stdio.xs#19~32713~ 2007-12-22 16:39:17.000000000
-0800
+++ perl/vms/ext/Stdio/Stdio.xs 2007-12-31 15:44:35.000000000 -0800
@@ -349,7 +349,7 @@
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);
End of Patch.
