summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorJesse Vincent <jesse@bestpractical.com>2010-05-05 14:40:59 -0400
committerJesse Vincent <jesse@bestpractical.com>2010-05-05 14:40:59 -0400
commitae18566af0ea83777df8fec61aac717652bf0214 (patch)
tree5aa65f4a51d90ec48f523d10ffd69014f483b409 /toke.c
parent01a6539711670dc7a832dd98ee7731633cc75523 (diff)
downloadperl-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.c9
1 files changed, 0 insertions, 9 deletions
diff --git a/toke.c b/toke.c
index 7ad03b8b31..dea52743ed 100644
--- a/toke.c
+++ b/toke.c
@@ -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)