X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=dea52743ed56aad89475a86903a0d994010e2247;hb=9e5bbba0de25c01ae9355c7a97e237602a37e9f3;hp=21b69cb23f6ddd27dcdb07d6ce1028a05ce67c45;hpb=01146bad274273e459645fb4cce5aeac95999d64;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/toke.c b/toke.c
index 21b69cb..dea5274 100644
--- a/toke.c
+++ b/toke.c
@@ -5714,7 +5714,7 @@ Perl_yylex(pTHX)
 	    }
 	}
 
-	if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-", s[2]))) {
+	if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) {
 	    PL_tokenbuf[0] = '@';
 	    s = scan_ident(s + 1, PL_bufend, PL_tokenbuf + 1,
 			   sizeof PL_tokenbuf - 1, FALSE);
@@ -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_d(aTHX_ packWARN(WARN_DEPRECATED),
-			"Dot after %s literal is concatenation", base);
-	    }
-
 	    sv = newSV(0);
 	    if (overflowed) {
 		if (n > 4294967295.0)