Fix warning wrt return value of PerlIO_getname()

Problem with -Duseperlio:

cc: Warning: perlio.c, line 302: Non-void function "PerlIO_getname" does not contain a return statement.
char *
^

p5p-msgid: 199704300448.AAA24174@Orb.Nashua.NH.US

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
 }