diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-03 21:07:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-03 21:07:57 +0000 |
| commit | a20bf0c3d4388ee237405eea459c5f4080c80cef (patch) | |
| tree | 88a8676f080797ff8d6fe8e0bf367b40da674f79 /pp_sys.c | |
| parent | 92479810ad7bcca524d84878cb8fc5387a2d262c (diff) | |
| download | perl-a20bf0c3d4388ee237405eea459c5f4080c80cef.tar.gz | |
Retract #3912, much too many compilation warnings
under Digital UNIX.
p4raw-id: //depot/cfgperl@3913
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(aTHX_ IoIFP(io)) <= 0) { + if (PerlIO_get_cnt(IoIFP(io)) <= 0) { i = PerlIO_getc(IoIFP(io)); if (i != EOF) (void)PerlIO_ungetc(IoIFP(io),i); } - if (PerlIO_get_cnt(aTHX_ IoIFP(io)) <= 0) /* null file is anything */ + if (PerlIO_get_cnt(IoIFP(io)) <= 0) /* null file is anything */ RETPUSHYES; - len = PerlIO_get_bufsiz(aTHX_ IoIFP(io)); - s = (STDCHAR *) PerlIO_get_base(aTHX_ IoIFP(io)); + len = PerlIO_get_bufsiz(IoIFP(io)); + s = (STDCHAR *) PerlIO_get_base(IoIFP(io)); /* sfio can have large buffers - limit to 512 */ if (len > 512) len = 512; |