summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorSpider Boardman <spider@Orb.Nashua.NH.US>1997-04-30 00:48:13 -0400
committerChip Salzenberg <chip@atlantic.net>1997-04-30 00:00:00 +1200
commitc64afb197ce53aa2c5bfc4b930690d09c87d4014 (patch)
tree2c9d0005ab2baf08fd737cdac6e726895e90125a /perlio.c
parentb3f57a3ae313cf6361c2b502f733d1937d10590c (diff)
downloadperl-c64afb197ce53aa2c5bfc4b930690d09c87d4014.tar.gz
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
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c1
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
}