From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Feb 2002 20:15:51 +0000 (+0000)
Subject: Tiny code cleanup.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a623e436d71abaaa4d1ebda0aec183af7a6eb53;p=p5sagit%2Fp5-mst-13.2.git

Tiny code cleanup.

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

diff --git a/regexec.c b/regexec.c
index 8c091a1..61d175a 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4260,9 +4260,6 @@ S_reginclasslen(pTHX_ register regnode *n, register U8* p, STRLEN* lenp, registe
 		if (swash_fetch(sw, p, do_utf8))
 		    match = TRUE;
 		else if (flags & ANYOF_FOLD) {
-		    U8 tmpbuf[UTF8_MAXLEN_FOLD+1];
-		    STRLEN tmplen;
-
 		    if (!match && lenp && av) {
 		        I32 i;
 		      
@@ -4279,15 +4276,13 @@ S_reginclasslen(pTHX_ register regnode *n, register U8* p, STRLEN* lenp, registe
 			}
 		    }
 		    if (!match) {
+		        U8 tmpbuf[UTF8_MAXLEN_FOLD+1];
+			STRLEN tmplen;
+
 		        to_utf8_fold(p, tmpbuf, &tmplen);
 			if (swash_fetch(sw, tmpbuf, do_utf8))
 			    match = TRUE;
 		    }
-		    if (!match) {
-		        to_utf8_upper(p, tmpbuf, &tmplen);
-			if (swash_fetch(sw, tmpbuf, do_utf8))
-			    match = TRUE;
-		    }
 		}
 	    }
 	}