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