summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-03-26 20:28:40 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-03-26 21:19:13 -0700
commit6392290333a91099e4f5dd97dfc16459c78826d8 (patch)
tree489d1e260f6935c640e81cb93822528431f54e4b /pp_hot.c
parentc44493f128e2935f10570c2a0e7a05fa8b412918 (diff)
downloadperl-6392290333a91099e4f5dd97dfc16459c78826d8.tar.gz
[perl #111656] Make ‘glob failed’ suppressible
The ‘glob failed’ warning was not respecting warnings settings. The warning used to occur even under ‘no warnings’. This commit makes it a severe warning. I.e., there is no change when warnings are con- trolled by $^W and $^W is 0, but only under ‘no warnings 'glob'’.
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 6bf5a741a1..89165d90a3 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1607,7 +1607,7 @@ Perl_do_readline(pTHX)
&& ckWARN2(WARN_GLOB, WARN_CLOSED))
{
if (type == OP_GLOB)
- Perl_warner(aTHX_ packWARN(WARN_GLOB),
+ Perl_ck_warner_d(aTHX_ packWARN(WARN_GLOB),
"glob failed (can't start child: %s)",
Strerror(errno));
else