Fix warning wrt return value of PerlIO_getname()

[p5sagit/p5-mst-13.2.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index ffdd3f0..848c9bf 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -308,6 +308,7 @@ char *buf;
  return fgetname(f,buf);
 #else
  croak("Don't know how to get file name");
+ return NULL;
 #endif
 }