This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fileno() was failing when passed a NULL. I'm guessing that we don't really need...
authorSteve Peters <steve@fisharerojo.org>
Mon, 23 Feb 2009 19:25:33 +0000 (13:25 -0600)
committerSteve Peters <steve@fisharerojo.org>
Mon, 23 Feb 2009 19:25:33 +0000 (13:25 -0600)
perlio.c

index b935734..0a086a8 100644 (file)
--- 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;
 }