toke.c.pat1

   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;