Change 13989: Less unused ones.

[Jarkko Hietaniemi]

Change 13989 by jhi@alpha on 2001/12/31 16:47:28

        Less unused ones.

Affected files ...

.... //depot/perl/regexec.c#231 edit

Differences ...

==== //depot/perl/regexec.c#231 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~  Mon Dec 31 10:00:05 2001
+++ perl/regexec.c      Mon Dec 31 10:00:05 2001
@@ -2350,7 +2350,6 @@
            {
                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 @@
 
                if (do_utf8 && UTF) {
                     /* Both the target and the pattern are utf8. */
-                    STRLEN ulen;
-                    
                     while (s < e) {
                          if (l >= PL_regeol)
                               sayNO;
End of Patch.