1foo=something bugfix

[Zoltan Hidvegi <hzoli@xxxxxxxxxx>]

Peter reported that

1foo=... is the same as
1=...

The patch below hopefully cures this.

Zoltan


*** Src/lex.c.orig	Wed Sep 11 00:51:32 1996
--- Src/lex.c	Wed Sep 11 02:37:13 1996
***************
*** 859,873 ****
  		}
  	    } else if (!sub && peek != ENVSTRING &&
  		       incmdpos && !bct && !brct) {
! 		e = hgetc();
! 		if (e == '(' && incmdpos) {
! 		    *bptr = '\0';
! 		    return ENVARRAY;
! 		}
! 		hungetc(e);
! 		lexstop = 0;
! 		peek = ENVSTRING;
! 		intpos = 2;
  	    } else
  		c = Equals;
  	    break;
--- 859,881 ----
  		}
  	    } else if (!sub && peek != ENVSTRING &&
  		       incmdpos && !bct && !brct) {
! 		e = 0;
! 		if (idigit(*tokstr))
! 		    while (++e < len && idigit(tokstr[e]));
! 		else
! 		    while (iident(tokstr[e]) && ++e < len);
! 		if (e == len) {
! 		    e = hgetc();
! 		    if (e == '(' && incmdpos) {
! 			*bptr = '\0';
! 			return ENVARRAY;
! 		    }
! 		    hungetc(e);
! 		    lexstop = 0;
! 		    peek = ENVSTRING;
! 		    intpos = 2;
! 		} else
! 		    c = Equals;
  	    } else
  		c = Equals;
  	    break;