Cut-and-pasto.

p4raw-id: //depot/perl@9804

diff --git a/perlio.c b/perlio.c
index dc1bba1..13ef151 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -853,7 +853,7 @@ PerlIO_fdupopen(pTHX_ PerlIO *f)
  else
   {
    SETERRNO(EBADF,SS$_IVCHAN);
-   return -1;
+   return NULL;
   }
 }