From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 23 May 1998 18:25:14 +0000 (+0000)
Subject: [win32] merge change#1013 from maintbranch (1012 is n/a)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09ecc4b69a964aa52843e24f44be5f67b6fadd59;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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