perlunifaq, uniintro: fix for 80 col display

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index faa1664..dea5274 100644 (file)
--- 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);
@@ -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;