From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 31 Dec 2001 16:47:28 +0000 (+0000)
Subject: Less unused ones.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c766035b4330462a95573999ef9fa36ffd1d9545;p=p5sagit%2Fp5-mst-13.2.git

Less unused ones.

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

diff --git a/regexec.c b/regexec.c
index cf33abb..3aed549 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2350,7 +2350,6 @@ S_regmatch(pTHX_ regnode *prog)
 	    {
 		char *l = locinput;
 		char *e = s + ln;
-		U8 tmpbuf[UTF8_MAXLEN_FOLD+1];
 
 		if (do_utf8 != (UTF!=0)) {
 		     /* The target and the pattern have differing utf8ness. */
@@ -2403,8 +2402,6 @@ S_regmatch(pTHX_ regnode *prog)
 
 		if (do_utf8 && UTF) {
 		     /* Both the target and the pattern are utf8. */
-		     STRLEN ulen;
-		     
 		     while (s < e) {
 			  if (l >= PL_regeol)
 			       sayNO;