diff options
| author | Philip Newton <pne@cpan.org> | 2002-04-17 21:48:09 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-17 20:24:48 +0000 |
| commit | da6eedaa8c807f963938cbb14de34b87260db473 (patch) | |
| tree | 2f1987e1d64455be7ec146e86b9a8690c84adc46 /toke.c | |
| parent | f3e4a94eca8091ef3e896dc377f9a1a97616795c (diff) | |
| download | perl-da6eedaa8c807f963938cbb14de34b87260db473.tar.gz | |
@:foo?
Message-ID: <v6drbu0mkupaklru4efcq40lv7d4vajdp1@4ax.com>
p4raw-id: //depot/perl@15979
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1181,7 +1181,7 @@ S_sublex_done(pTHX) It stops processing as soon as it finds an embedded $ or @ variable and leaves it to the caller to work out what's going on. - @ in pattern could be: @foo, @{foo}, @$foo, @'foo, @:foo. + @ in pattern could be: @foo, @{foo}, @$foo, @'foo, @::foo. $ in pattern could be $foo or could be tail anchor. Assumption: it's a tail anchor if $ is the last thing in the string, or if it's @@ -1356,7 +1356,7 @@ S_scan_const(pTHX_ char *start) } /* check for embedded arrays - (@foo, @:foo, @'foo, @{foo}, @$foo, @+, @-) + (@foo, @::foo, @'foo, @{foo}, @$foo, @+, @-) */ else if (*s == '@' && s[1] && (isALNUM_lazy_if(s+1,UTF) || strchr(":'{$+-", s[1]))) |