From: Spider Boardman <spider@Orb.Nashua.NH.US>
Date: Wed, 30 Apr 1997 04:48:13 +0000 (-0400)
Subject: Fix warning wrt return value of PerlIO_getname()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c64afb197ce53aa2c5bfc4b930690d09c87d4014;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
 }