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 /pp_hot.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 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -751,7 +751,7 @@ PP(pp_print) && (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) goto had_magic; 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); goto just_say_no; } @@ -760,7 +760,7 @@ PP(pp_print) if (IoIFP(io)) report_wrongway_fh(gv, '<'); else 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,IoIFP(io)?RMS_FAC:RMS_IFI); goto just_say_no; @@ -1637,7 +1637,7 @@ Perl_do_readline(pTHX) "glob failed (can't start child: %s)", Strerror(errno)); else - report_evil_fh(PL_last_in_gv, io, PL_op->op_type); + report_evil_fh(PL_last_in_gv, PL_op->op_type); } if (gimme == G_SCALAR) { /* undef TARG, and push that undefined value */ |