This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove useless assignments
[perl5.git] / regcomp.c
index 783349e..0211f96 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -13885,8 +13885,6 @@ parseit:
            for (i = start; i <= (int) high; i++) {
                if (! ANYOF_BITMAP_TEST(ret, i)) {
                    ANYOF_BITMAP_SET(ret, i);
-                   prevvalue = value;
-                   value = i;
                }
            }
        }