diff options
author | Jesse Vincent <jesse@bestpractical.com> | 2010-05-05 14:40:59 -0400 |
---|---|---|
committer | Jesse Vincent <jesse@bestpractical.com> | 2010-05-05 14:40:59 -0400 |
commit | ae18566af0ea83777df8fec61aac717652bf0214 (patch) | |
tree | 5aa65f4a51d90ec48f523d10ffd69014f483b409 /toke.c | |
parent | 01a6539711670dc7a832dd98ee7731633cc75523 (diff) | |
download | perl-ae18566af0ea83777df8fec61aac717652bf0214.tar.gz |
Revert "New deprecation warning: Dot after %s literal is concatenation"
This reverts commit 6fb472bab4fadd0ae2ca9624b74596afab4fb8cb.
Zefram asked me to revert this as he's going to be doing something more
pluggable
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 9 |
1 files changed, 0 insertions, 9 deletions
@@ -13096,15 +13096,6 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) Perl_ck_warner(aTHX_ packWARN(WARN_SYNTAX), "Misplaced _ in number"); } - /* Dot here is historically concat, not a radix point. - Deprecate that; it's confusing, and gets in the way of - 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); - } - sv = newSV(0); if (overflowed) { if (n > 4294967295.0) |