From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from dns.primenet.com.au (dns.primenet.com.au [203.24.36.40]) by coral.primenet.com.au (8.7.5/8.7.3) with ESMTP id OAA00207 for <mason@primenet.com.au>; Wed, 11 Sep 1996 14:18:14 +1000 (EST)
Received: from euclid.skiles.gatech.edu (list@euclid.skiles.gatech.edu [130.207.146.50]) by dns.primenet.com.au (8.7.5/8.7.3) with ESMTP id LAA00888 for <mason@primenet.com.au>; Wed, 11 Sep 1996 11:12:37 +1000 (EST)
Received: (from list@localhost) by euclid.skiles.gatech.edu (8.7.3/8.7.3) id UAA17270; Tue, 10 Sep 1996 20:51:40 -0400 (EDT)
Resent-Date: Tue, 10 Sep 1996 20:51:40 -0400 (EDT)
From: Zoltan Hidvegi <hzoli@cs.elte.hu>
Message-Id: <199609110045.CAA02766@hzoli.ppp.cs.elte.hu>
Subject: 1foo=something bugfix
To: zsh-workers@math.gatech.edu (Zsh hacking and development)
Date: Wed, 11 Sep 1996 02:45:22 +0200 (MET DST)
X-Mailer: ELM [version 2.4ME+ PL17 (25)]
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Resent-Message-ID: <"Ju4GK.0.mD4.RqWDo"@euclid>
Resent-From: zsh-workers@math.gatech.edu
X-Mailing-List: <zsh-workers@math.gatech.edu> archive/latest/2125
X-Loop: zsh-workers@math.gatech.edu
Precedence: list
Resent-Sender: zsh-workers-request@math.gatech.edu

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;