Fix (valid) -Wall warnings in perlio.c

p4raw-id: //depot/perlio@10504

diff --git a/iperlsys.h b/iperlsys.h
index 237fab2..125a75a 100644 (file)
--- 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)
 #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
 #define PerlSIO_get_base(f)            FILE_base(f)
 #define PerlSIO_get_bufsiz(f)          FILE_bufsiz(f)
 #else