diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-12-28 09:09:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-12-28 10:03:48 +0000 |
| commit | 831e4cc39fb21ae91f3e1e38353c1f0efa8f6761 (patch) | |
| tree | 487258c1a5325df67a5fe1536ae4583b943ca0f6 /util.c | |
| parent | 65820a288a7a8e6320b960e1ffcb1dc9577b9650 (diff) | |
| download | perl-831e4cc39fb21ae91f3e1e38353c1f0efa8f6761.tar.gz | |
Argument op to report_evil_fh() is always PL_op->op_type, so need not be passed
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3882,9 +3882,10 @@ Perl_report_wrongway_fh(pTHX_ const GV *gv, char have) } void -Perl_report_evil_fh(pTHX_ const GV *gv, I32 op) +Perl_report_evil_fh(pTHX_ const GV *gv) { const IO *io = gv ? GvIO(gv) : NULL; + const PERL_BITFIELD16 op = PL_op->op_type; const char *vile; I32 warn_type; @@ -3906,7 +3907,6 @@ Perl_report_evil_fh(pTHX_ const GV *gv, I32 op) (const char *) (op == OP_READLINE ? "readline" : /* "<HANDLE>" not nice */ op == OP_LEAVEWRITE ? "write" : /* "write exit" not nice */ - op < 0 ? "" : /* handle phoney cases */ PL_op_desc[op]); const char * const type = (const char *) |