Change 33220 by [EMAIL PROTECTED] on 2008/02/03 00:40:35
Integrate:
[ 32791]
Fix VMS::Stdio bug introduced in 32713.
Affected files ...
... //depot/maint-5.10/perl/vms/ext/Stdio/Stdio.xs#3 integrate
Differences ...
==== //depot/maint-5.10/perl/vms/ext/Stdio/Stdio.xs#3 (text) ====
Index: perl/vms/ext/Stdio/Stdio.xs
--- perl/vms/ext/Stdio/Stdio.xs#2~33121~ 2008-01-30 03:03:49.000000000
-0800
+++ perl/vms/ext/Stdio/Stdio.xs 2008-02-02 16:40: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.
