1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index 03e9d035d4..7ad03b8b31 100644
--- a/toke.c
+++ b/toke.c
@@ -13101,8 +13101,8 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
 	       hex(ish) fractions... but '..' is OK. */
 	    if (s[0] == '.' &&
 		s[1] != '.') {
-		Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED),
-			"Dot after %s literal is concatenation", base);
+		Perl_ck_warner(aTHX_ packWARN(WARN_DEPRECATED),
+			       "Dot after %s literal is concatenation", base);
 	    }
 
 	    sv = newSV(0);