Less unused ones.

p4raw-id: //depot/perl@13989

diff --git a/regexec.c b/regexec.c
index cf33abb..3aed549 100644 (file)
--- 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;