[perl.git] branch blead, updated. GitLive-blead-694-g5e99c35

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/5e99c3599584e486bfdcabd9de63e308f013df4e?hp=6df20272fc05b52aa3a7ec48f86429cda721a7f2>

- Log -----------------------------------------------------------------
commit 5e99c3599584e486bfdcabd9de63e308f013df4e
Merge: 40596bc... 6df2027...
Author: Steve Peters <steve@fisharerojo.org>
Date:   Mon Feb 23 13:57:38 2009 -0600

    Merge branch 'blead' of ssh://stevep@perl5.git.perl.org/gitroot/perl into blead

commit 40596bc538f0e2be42b50d80f46887e76a4a3b33
Author: Steve Peters <steve@fisharerojo.org>
Date:   Mon Feb 23 13:25:33 2009 -0600

    fileno() was failing when passed a NULL.  I'm guessing that we don't really need to increase the refcount on a NULL fd.

M	perlio.c
-----------------------------------------------------------------------

Summary of changes:
 perlio.c |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/perlio.c b/perlio.c
index b935734..0a086a8 100644
--- a/perlio.c
+++ b/perlio.c
@@ -3033,7 +3033,9 @@ PerlIOStdio_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags)
     	stdio = PerlSIO_fdopen(fd, PerlIO_modestr(o,mode));
     set_this:
 	PerlIOSelf(f, PerlIOStdio)->stdio = stdio;
-	PerlIOUnix_refcnt_inc(fileno(stdio));
+        if(stdio) {
+	    PerlIOUnix_refcnt_inc(fileno(stdio));
+        }
     }
     return f;
 }

--
Perl5 Master Repository

• [perl.git] branch blead, updated. GitLive-blead-694-g5e99c35 by Steve Peters