From 72aaf6313309039c851862ad50ee168cb9cdf42b Mon Sep 17 00:00:00 2001
From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Wed, 13 Aug 1997 16:15:25 +0000
Subject: Threading fixups for Digital UNIX.

p4raw-id: //depot/perl@45
---
 toke.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index ca8657b3a7..dd5e2328ba 100644
--- a/toke.c
+++ b/toke.c
@@ -759,7 +759,7 @@ char *start;
     register char *d = SvPVX(sv);
     bool dorange = FALSE;
     I32 len;
-    char *leave =
+    char *leaveit =
 	lex_inpat
 	    ? "\\.^$@AGZdDwWsSbB+*?|()-nrtfeaxc0123456789[{]} \t\n\r\f\v#"
 	    : (lex_inwhat & OP_TRANS)
@@ -805,7 +805,7 @@ char *start;
 	}
 	if (*s == '\\' && s+1 < send) {
 	    s++;
-	    if (*s && strchr(leave, *s)) {
+	    if (*s && strchr(leaveit, *s)) {
 		*d++ = '\\';
 		*d++ = *s++;
 		continue;
-- 
cgit v1.2.1