From: Christos Zoulas <christos@zoulas.com>
Date: Thu, 23 Sep 1993 20:19:42 +0000 (+0000)
Subject: Fixed small parsing bug in apprentice.c
X-Git-Tag: FILE3_27~137
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=5971f04a95013473a6d2a3c14c5dbc77ffe54bd5;p=file

Fixed small parsing bug in apprentice.c
---

diff --git a/src/apprentice.c b/src/apprentice.c
index 561f1787..6fad93c1 100644
--- a/src/apprentice.c
+++ b/src/apprentice.c
@@ -33,7 +33,7 @@
 
 #ifndef	lint
 static char *moduleid = 
-	"@(#)$Id: apprentice.c,v 1.17 1993/09/16 20:49:29 christos Exp $";
+	"@(#)$Id: apprentice.c,v 1.18 1993/09/23 20:19:42 christos Exp $";
 #endif	/* lint */
 
 #define	EATAB {while (isascii((unsigned char) *l) && \
@@ -164,9 +164,11 @@ int *ndx, check;
 		s = l;
 		if (*l == '+' || *l == '-') l++;
 		if (isdigit((unsigned char)*l)) {
-		    m->in.offset = strtol(l, &t, 0);
-		    if (*s == '-') m->in.offset = - m->in.offset;
+			m->in.offset = strtol(l, &t, 0);
+			if (*s == '-') m->in.offset = - m->in.offset;
 		}
+		else
+			t = l;
 		if (*t++ != ')') 
 			magwarn("missing ')' in indirect offset");
 		l = t;