summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-05-22 16:47:22 +0200
committerRafael Garcia-Suarez <rgs@consttype.org>2010-05-05 00:00:42 +0200
commitc0b977fd793319b0b362593c57555d28997fae84 (patch)
treee5abdb277c98fd99265849a9ae30a151af182120 /toke.c
parent7b931d503c63a3381b96c75ed6b22069ceb7f371 (diff)
downloadperl-c0b977fd793319b0b362593c57555d28997fae84.tar.gz
If we're going to introduce an @@ array, we'll want to be able to parse $#@ too
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index faa16643f4..e9841f8400 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);