diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-22 16:47:22 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-05 00:00:42 +0200 |
| commit | c0b977fd793319b0b362593c57555d28997fae84 (patch) | |
| tree | e5abdb277c98fd99265849a9ae30a151af182120 | |
| parent | 7b931d503c63a3381b96c75ed6b22069ceb7f371 (diff) | |
| download | perl-c0b977fd793319b0b362593c57555d28997fae84.tar.gz | |
If we're going to introduce an @@ array, we'll want to be able to parse $#@ too
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |