[asperl] various changes to get asperl working under Borland

(passes all tests when built under PERL_OBJECT)

p4raw-id: //depot/asperl@809

1 files changed, 8 insertions, 8 deletions

diff --git a/toke.c b/toke.c
index 00dbf7fc47..c24f87868f 100644
--- a/toke.c
+++ b/toke.c
@@ -876,23 +876,23 @@ scan_const(char *start)
 		    *d++ = *s++;
 	    } else if (s[2] == '{') {	/* This should march regcomp.c */
 		I32 count = 1;
-		char *regparse = s + 3;
+		char *pregparse = s + 3;
 		char c;
 
-		while (count && (c = *regparse)) {
-		    if (c == '\\' && regparse[1])
-			regparse++;
+		while (count && (c = *pregparse)) {
+		    if (c == '\\' && pregparse[1])
+			pregparse++;
 		    else if (c == '{') 
 			count++;
 		    else if (c == '}') 
 			count--;
-		    regparse++;
+		    pregparse++;
 		}
-		if (*regparse == ')')
-		    regparse++;
+		if (*pregparse == ')')
+		    pregparse++;
 		else
 		    yyerror("Sequence (?{...}) not terminated or not {}-balanced");
-		while (s < regparse && *s != ')')
+		while (s < pregparse && *s != ')')
 		    *d++ = *s++;
 	    }
 	}