summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-12-30 16:52:22 +0000
committerNicholas Clark <nick@ccl4.org>2010-12-30 16:52:22 +0000
commitc521cf7c8af1697e5efd8ce3ad75ed00606db13b (patch)
tree218f51bab9cef4c2f05cc4468a8078df6a0e54c0 /pp_sys.c
parent8985fe98dcc5c0af2fadeac15dfbc13f553ee7fc (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 2845266ac6..23cdd5b7a9 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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);
}