From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 10 Jun 2001 17:47:06 +0000 (+0000)
Subject: Fix (valid) -Wall warnings in perlio.c
X-Git-Tag: perl-5.7.2~6^2~55
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/f7c20d1e66b328169b2a25edeede0115605e777a?ds=sidebyside

Fix (valid) -Wall warnings in perlio.c

p4raw-id: //depot/perlio@10504
---

diff --git a/iperlsys.h b/iperlsys.h
index 237fab2..125a75a 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -285,7 +285,7 @@ struct IPerlStdIOInfo
 #define PerlSIO_ferror(f)		ferror(f)
 #define PerlSIO_clearerr(f)		clearerr(f)
 #define PerlSIO_fgetc(f)			fgetc(f)
-#if PerlSIO_has_base
+#ifdef FILE_base
 #define PerlSIO_get_base(f)		FILE_base(f)
 #define PerlSIO_get_bufsiz(f)		FILE_bufsiz(f)
 #else