diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-23 18:25:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-23 18:25:14 +0000 |
| commit | 09ecc4b69a964aa52843e24f44be5f67b6fadd59 (patch) | |
| tree | fed24c9d7834d2bcfc1b56c6c8fde7f34f68abb8 /toke.c | |
| parent | cca87523cf2ee6eb48a8a0b1a57f8bea2c4b1915 (diff) | |
| download | perl-09ecc4b69a964aa52843e24f44be5f67b6fadd59.tar.gz | |
[win32] merge change#1013 from maintbranch (1012 is n/a)
p4raw-link: @1013 on //depot/maint-5.004/perl: e9ccf45401c9d6e23ccd88507835ebd585569b1a
p4raw-id: //depot/win32/perl@1028
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -2229,13 +2229,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 |