This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Another leak regression
authorKarl Williamson <public@khwilliamson.com>
Sun, 22 May 2011 16:51:40 +0000 (10:51 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 22 May 2011 17:12:25 +0000 (11:12 -0600)
regcomp.c

index d2a60fa..9366c55 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10299,6 +10299,7 @@ parseit:
            HV* temp = invlist_union(nonbitmap, l1_fold_invlist);
            invlist_destroy(nonbitmap);
            nonbitmap = temp;
+           invlist_destroy(l1_fold_invlist);
        }
        else {
            nonbitmap = l1_fold_invlist;