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 /doio.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 'doio.c')
| -rw-r--r-- | doio.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -792,7 +792,7 @@ Perl_do_eof(pTHX_ GV *gv) while (IoIFP(io)) { if (PerlIO_has_cntptr(IoIFP(io))) { /* (the code works without this) */ - if (PerlIO_get_cnt(aTHX_ IoIFP(io)) > 0) /* cheat a little, since */ + if (PerlIO_get_cnt(IoIFP(io)) > 0) /* cheat a little, since */ return FALSE; /* this is the most usual case */ } @@ -802,8 +802,8 @@ Perl_do_eof(pTHX_ GV *gv) return FALSE; } if (PerlIO_has_cntptr(IoIFP(io)) && PerlIO_canset_cnt(IoIFP(io))) { - if (PerlIO_get_cnt(aTHX_ IoIFP(io)) < -1) - PerlIO_set_cnt(aTHX_ IoIFP(io),-1); + if (PerlIO_get_cnt(IoIFP(io)) < -1) + PerlIO_set_cnt(IoIFP(io),-1); } if (PL_op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */ if (!nextargv(PL_argvgv)) /* get another fp handy */ |