From 6392290333a91099e4f5dd97dfc16459c78826d8 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 26 Mar 2012 20:28:40 -0700
Subject: =?UTF-8?q?[perl=20#111656]=20Make=20=E2=80=98glob=20failed?=
 =?UTF-8?q?=E2=80=99=20suppressible?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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'’.
---
 pp_hot.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.1