[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'’.

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