diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-03-26 20:28:40 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-26 21:19:13 -0700 |
| commit | 6392290333a91099e4f5dd97dfc16459c78826d8 (patch) | |
| tree | 489d1e260f6935c640e81cb93822528431f54e4b /pp_hot.c | |
| parent | c44493f128e2935f10570c2a0e7a05fa8b412918 (diff) | |
| download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |