diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 07:22:51 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 07:22:51 +0000 |
commit | d0340efeaf607d2e70273b4fa22e5ee3b358abe8 (patch) | |
tree | 8187e35c8e61d21279785c869e1a5d92009e8e57 /toke.c | |
parent | ab39fa9dbf3b1a1fb7beb555653d0558a089397f (diff) | |
parent | a1737d5b9df80320e5be59ab8fa7c96455d6b5bf (diff) | |
download | perl-d0340efeaf607d2e70273b4fa22e5ee3b358abe8.tar.gz |
[asperl] integrate mainline changes
p4raw-id: //depot/asperl@1055
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -2221,13 +2221,8 @@ yylex(void) else lex_brackstack[lex_brackets++] = XOPERATOR; s = skipspace(s); - if (*s == '}') { - if (expect == XSTATE) { - lex_brackstack[lex_brackets-1] = XSTATE; - break; - } + if (*s == '}') OPERATOR(HASHBRACK); - } /* This hack serves to disambiguate a pair of curlies * as being a block or an anon hash. Normally, expectation * determines that, but in cases where we're not in a |