From: Jesse Vincent <jesse@bestpractical.com>
Date: Wed, 5 May 2010 18:40:26 +0000 (-0400)
Subject: Revert "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=930a5abbcbc469d98692fb3b93594ece3545211a;p=p5sagit%2Fp5-mst-13.2.git

Revert "Deprecation warnings should always be mandatory since 5.12.0"

This reverts commit a7e260e62a5e47961e908363da32ef16f41301b2.

Zefram asked me to revert this as he's going to be doing something more
pluggable
---

diff --git a/toke.c b/toke.c
index 03e9d03..7ad03b8 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);