From: Andy Lester <andy@petdance.com>
Date: Mon, 3 Apr 2006 00:00:50 +0000 (-0500)
Subject: Removed unused code in regexec.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f596f4c76b3e581f7af85bb1c7b292b73fc268c;p=p5sagit%2Fp5-mst-13.2.git

Removed unused code in regexec.c
Message-ID: <20060403050050.GA19055@petdance.com>

p4raw-id: //depot/perl@27700
---

diff --git a/regexec.c b/regexec.c
index ced5708..1d334b3 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4556,10 +4556,9 @@ exit_level:
 
     /* free all slabs above current one */
     if (orig_slab->next) {
-	regmatch_slab *osl, *sl = orig_slab->next;
+	regmatch_slab *sl = orig_slab->next;
 	orig_slab->next = NULL;
 	while (sl) {
-	    osl = sl;
 	    sl = sl->next;
 	}
     }
@@ -4590,7 +4589,7 @@ S_regrepeat(pTHX_ const regnode *p, I32 max)
     if (max == REG_INFTY)
 	max = I32_MAX;
     else if (max < loceol - scan)
-      loceol = scan + max;
+	loceol = scan + max;
     switch (OP(p)) {
     case REG_ANY:
 	if (do_utf8) {