diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-23 11:42:05 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-23 11:42:05 +0200 |
| commit | a7e260e62a5e47961e908363da32ef16f41301b2 (patch) | |
| tree | 3a6b7359f4f3ed047fe183278551773e89b1795c /toke.c | |
| parent | c4deb7365787eb01845a9d0e371e343169530659 (diff) | |
| download | perl-a7e260e62a5e47961e908363da32ef16f41301b2.tar.gz | |
Deprecation warnings should always be mandatory since 5.12.0
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |