From 137c94144cb236363f7af4ac86801fefde96d495 Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Wed, 1 Mar 2000 10:08:02 +0000
Subject: zsh-workers/9947

---
 Src/math.c | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'Src/math.c')

diff --git a/Src/math.c b/Src/math.c
index a3609d429..ce685e2db 100644
--- a/Src/math.c
+++ b/Src/math.c
@@ -396,7 +396,7 @@ zzlex(void)
 	    }
 	    if (iident(*ptr)) {
 		int func = 0;
-		char *p, q;
+		char *p;
 
 		p = ptr;
 		while (iident(*++ptr));
@@ -413,10 +413,7 @@ zzlex(void)
 			    ptr++;
 		    }
 		}
-		q = *ptr;
-		*ptr = '\0';
-		yylval = dupstring(p);
-		*ptr = q;
+		yylval = dupstrpfx(p, ptr - p);
 		return (func ? FUNC : (cct ? CID : ID));
 	    }
 	    else if (cct) {
-- 
cgit 1.4.1