This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove useless assignments
authorKarl Williamson <public@khwilliamson.com>
Sun, 21 Jul 2013 16:49:05 +0000 (10:49 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 23 Jul 2013 15:54:16 +0000 (09:54 -0600)
These aren't used after setting.  They came from blindly copying code to
this.

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);
            for (i = start; i <= (int) high; i++) {
                if (! ANYOF_BITMAP_TEST(ret, i)) {
                    ANYOF_BITMAP_SET(ret, i);
-                   prevvalue = value;
-                   value = i;
                }
            }
        }
                }
            }
        }