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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7c20d1e66b328169b2a25edeede0115605e777a;p=p5sagit%2Fp5-mst-13.2.git

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