Revert "tweak "0x123.456" deprecation"

This reverts commit 1183a10042af0734ee65e252f15bd820b7bbe686.

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

1 files changed, 9 insertions, 12 deletions

diff --git a/toke.c b/toke.c
index e9841f8400..03e9d035d4 100644
--- a/toke.c
+++ b/toke.c
@@ -13014,18 +13014,6 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
 
 		switch (*s) {
 
-		case '.':
-		    /* 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[1] != '.') {
-			Perl_ck_warner_d(aTHX_
-			    packWARN2(WARN_DEPRECATED, WARN_SYNTAX),
-			    "Dot after %s literal is deprecated concatenation",
-			    base);
-		    }
-		    /* FALL THROUGH */
-
 		/* if we don't mention it, we're done */
 		default:
 		    goto out;
@@ -13108,6 +13096,15 @@ 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_d(aTHX_ packWARN(WARN_DEPRECATED),
+			"Dot after %s literal is concatenation", base);
+	    }
+
 	    sv = newSV(0);
 	    if (overflowed) {
 		if (n > 4294967295.0)