Change 14856: Tiny code cleanup.

[Jarkko Hietaniemi]

Change 14856 by jhi@alpha on 2002/02/24 20:15:51

        Tiny code cleanup.

Affected files ...

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

Differences ...

==== //depot/perl/regexec.c#261 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~  Sun Feb 24 13:30:05 2002
+++ perl/regexec.c      Sun Feb 24 13:30:05 2002
@@ -4260,9 +4260,6 @@
                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 @@
                        }
                    }
                    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;
-                   }
                }
            }
        }
End of Patch.