diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-12-28 08:56:36 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-12-28 10:03:38 +0000 |
| commit | 65820a288a7a8e6320b960e1ffcb1dc9577b9650 (patch) | |
| tree | a54299536df38c3d0ae89cf1a257cc09e6efb923 /doio.c | |
| parent | a53904572d7a4d49d78b8fb0a3c739b451faad7e (diff) | |
| download | perl-65820a288a7a8e6320b960e1ffcb1dc9577b9650.tar.gz | |
The io argument to report_evil_fh() is always GvIO(gv), so need not be passed.
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -930,7 +930,7 @@ Perl_do_close(pTHX_ GV *gv, bool not_implicit) if (!io) { /* never opened */ if (not_implicit) { if (ckWARN(WARN_UNOPENED)) /* no check for closed here */ - report_evil_fh(gv, io, PL_op->op_type); + report_evil_fh(gv, PL_op->op_type); SETERRNO(EBADF,SS_IVCHAN); } return FALSE; @@ -1048,7 +1048,7 @@ Perl_do_tell(pTHX_ GV *gv) return PerlIO_tell(fp); } if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) - report_evil_fh(gv, io, PL_op->op_type); + report_evil_fh(gv, PL_op->op_type); SETERRNO(EBADF,RMS_IFI); return (Off_t)-1; } @@ -1068,7 +1068,7 @@ Perl_do_seek(pTHX_ GV *gv, Off_t pos, int whence) return PerlIO_seek(fp, pos, whence) >= 0; } if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) - report_evil_fh(gv, io, PL_op->op_type); + report_evil_fh(gv, PL_op->op_type); SETERRNO(EBADF,RMS_IFI); return FALSE; } @@ -1085,7 +1085,7 @@ Perl_do_sysseek(pTHX_ GV *gv, Off_t pos, int whence) if (gv && (io = GvIO(gv)) && (fp = IoIFP(io))) return PerlLIO_lseek(PerlIO_fileno(fp), pos, whence); if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) - report_evil_fh(gv, io, PL_op->op_type); + report_evil_fh(gv, PL_op->op_type); SETERRNO(EBADF,RMS_IFI); return (Off_t)-1; } @@ -1285,12 +1285,12 @@ Perl_my_stat_flags(pTHX_ const U32 flags) return (PL_laststatval = PerlLIO_fstat(my_dirfd(IoDIRP(io)), &PL_statcache)); } else { if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) - report_evil_fh(gv, io, PL_op->op_type); + report_evil_fh(gv, PL_op->op_type); return (PL_laststatval = -1); } } else { if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) - report_evil_fh(gv, io, PL_op->op_type); + report_evil_fh(gv, PL_op->op_type); return (PL_laststatval = -1); } } |