This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Deprecation warnings should always be mandatory since 5.12.0"
authorJesse Vincent <jesse@bestpractical.com>
Wed, 5 May 2010 18:40:26 +0000 (14:40 -0400)
committerJesse Vincent <jesse@bestpractical.com>
Wed, 5 May 2010 18:40:26 +0000 (14:40 -0400)
This reverts commit a7e260e62a5e47961e908363da32ef16f41301b2.

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

toke.c

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