[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-changes
Subject:    Change 32791: Fix VMS::Stdio bug introduced in 32713.
From:       "Craig A. Berry" <craigberry () mac ! com>
Date:       2007-12-31 23:45:03
Message-ID: 20071231234503.C94E050004 () mx ! activestate ! com
[Download RAW message or body]

Change 32791 by craigb@craigb-brianor 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.
[prev in list] [next in list] [prev in thread] [next in thread]