[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

diff --git a/toke.c b/toke.c
index 02f8cb9..2ccafc9 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -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