diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-12-30 16:52:22 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-12-30 16:52:22 +0000 |
commit | c521cf7c8af1697e5efd8ce3ad75ed00606db13b (patch) | |
tree | 218f51bab9cef4c2f05cc4468a8078df6a0e54c0 /pp_sys.c | |
parent | 8985fe98dcc5c0af2fadeac15dfbc13f553ee7fc (diff) | |
download | perl-c521cf7c8af1697e5efd8ce3ad75ed00606db13b.tar.gz |
pp_leavewrite wasn't warning for unopened handles unless 'closed' was enabled.
It was checking that category 'closed' was enabled for warnings before calling
report_evil_fh(), which in turn was (correctly) checking category 'unopened'.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1449,7 +1449,7 @@ PP(pp_leavewrite) if (!fp) { if (IoIFP(io)) report_wrongway_fh(gv, '<'); - else if (ckWARN(WARN_CLOSED)) + else report_evil_fh(gv); PUSHs(&PL_sv_no); } |