Change 33221 by [EMAIL PROTECTED] on 2008/02/03 00:56:15
Integrate:
[ 33220]
Integrate:
[ 32791]
Fix VMS::Stdio bug introduced in 32713.
Affected files ...
... //depot/maint-5.8/perl/vms/ext/Stdio/Stdio.xs#6 integrate
Differences ...
==== //depot/maint-5.8/perl/vms/ext/Stdio/Stdio.xs#6 (text) ====
Index: perl/vms/ext/Stdio/Stdio.xs
--- perl/vms/ext/Stdio/Stdio.xs#5~33203~ 2008-02-02 10:14:24.000000000
-0800
+++ perl/vms/ext/Stdio/Stdio.xs 2008-02-02 16:56:15.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.
