From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Fri, 23 Apr 2010 09:42:05 +0000 (+0200)
Subject: Deprecation warnings should always be mandatory since 5.12.0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7e260e62a5e47961e908363da32ef16f41301b2;p=p5sagit%2Fp5-mst-13.2.git

Deprecation warnings should always be mandatory since 5.12.0
---

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