Cut-and-pasto.

p4raw-id: //depot/perl@9804

1 files changed, 1 insertions, 1 deletions

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