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 | dae194278eef59f21d4bf9ade3ca3841e91c3b21 (patch) | |
tree | 8187e35c8e61d21279785c869e1a5d92009e8e57 /toke.c | |
parent | 44431feeffb743c6d66f153f76f42980cd11edd6 (diff) | |
parent | ef59fc761a6677b21b2dbe18c08e3f3b40fd6ffb (diff) | |
download | perl-dae194278eef59f21d4bf9ade3ca3841e91c3b21.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 |