diff options
| author | Sven Verdoolaege <skimo@breughel.ufsia.ac.be> | 1999-08-03 15:14:07 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-03 20:13:59 +0000 |
| commit | 92479810ad7bcca524d84878cb8fc5387a2d262c (patch) | |
| tree | 6e61defb098c1e6260381c9b949d9c8fa16056c5 /pp_sys.c | |
| parent | 961e40eebbdecbc4e587e5c0fd92623798217256 (diff) | |
| download | perl-92479810ad7bcca524d84878cb8fc5387a2d262c.tar.gz | |
(Retracted). See #3913.
To: perl5-porters@perl.org
Subject: [ID 19990803.003] Not OK: perl 5.00560 on i586-linux-thread
2.1.125 [PATCH]
Message-Id: <19990803131407.A30911@pool.kotnet.org>
p4raw-id: //depot/cfgperl@3912
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2946,15 +2946,15 @@ PP(pp_fttext) RETPUSHNO; else RETPUSHYES; - if (PerlIO_get_cnt(IoIFP(io)) <= 0) { + if (PerlIO_get_cnt(aTHX_ IoIFP(io)) <= 0) { i = PerlIO_getc(IoIFP(io)); if (i != EOF) (void)PerlIO_ungetc(IoIFP(io),i); } - if (PerlIO_get_cnt(IoIFP(io)) <= 0) /* null file is anything */ + if (PerlIO_get_cnt(aTHX_ IoIFP(io)) <= 0) /* null file is anything */ RETPUSHYES; - len = PerlIO_get_bufsiz(IoIFP(io)); - s = (STDCHAR *) PerlIO_get_base(IoIFP(io)); + len = PerlIO_get_bufsiz(aTHX_ IoIFP(io)); + s = (STDCHAR *) PerlIO_get_base(aTHX_ IoIFP(io)); /* sfio can have large buffers - limit to 512 */ if (len > 512) len = 512; |