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

1 files changed, 1 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index ffdd3f0197..848c9bffa6 100644
--- 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
 }