This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix (valid) -Wall warnings in perlio.c
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 10 Jun 2001 17:47:06 +0000 (17:47 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 10 Jun 2001 17:47:06 +0000 (17:47 +0000)
p4raw-id: //depot/perlio@10504

iperlsys.h

index 237fab2..125a75a 100644 (file)
@@ -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