[p5sagit/p5-mst-13.2.git] / toke.c.pat1

*** /scalpel/lwall/perl5alpha6/toke.c	Tue Feb 15 16:27:34 1994
--- toke.c	Thu Feb 17 11:13:27 1994
***************
*** 1398,1405 ****
  	if (expect == XTERM)
  	    OPERATOR(HASHBRACK);
  	else if (expect == XBLOCK || expect == XOPERATOR) {
! 	    lex_brackstack[lex_brackets-1] = XBLOCK;
! 	    expect = XBLOCK;
  	}
  	else {
  	    char *t;
--- 1398,1405 ----
  	if (expect == XTERM)
  	    OPERATOR(HASHBRACK);
  	else if (expect == XBLOCK || expect == XOPERATOR) {
! 	    lex_brackstack[lex_brackets-1] = XSTATE;
! 	    expect = XSTATE;
  	}
  	else {
  	    char *t;
Commit	Line	Data
85e6fe83	1	*** /scalpel/lwall/perl5alpha6/toke.c Tue Feb 15 16:27:34 1994
	2	--- toke.c Thu Feb 17 11:13:27 1994
	3	***************
	4	* 1398,1405 **
	5	if (expect == XTERM)
	6	OPERATOR(HASHBRACK);
	7	else if (expect == XBLOCK \|\| expect == XOPERATOR) {
	8	! lex_brackstack[lex_brackets-1] = XBLOCK;
	9	! expect = XBLOCK;
	10	}
	11	else {
	12	char *t;
	13	--- 1398,1405 ----
	14	if (expect == XTERM)
	15	OPERATOR(HASHBRACK);
	16	else if (expect == XBLOCK \|\| expect == XOPERATOR) {
	17	! lex_brackstack[lex_brackets-1] = XSTATE;
	18	! expect = XSTATE;
	19	}
	20	else {
	21	char *t;