This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
leakfinder.pl: More exceptions
authorFather Chrysostomos <sprout@cpan.org>
Tue, 13 Nov 2012 22:53:33 +0000 (14:53 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 13 Nov 2012 22:54:22 +0000 (14:54 -0800)
Porting/leakfinder.pl

index a69a4b8..d276563 100644 (file)
@@ -84,6 +84,7 @@ $n = push @a, "rec0", "rec1", "rec2";
 $n = push @a, "rec3", "rec4$:";
 $n = unshift @a, "rec0", "rec1", "rec2";
 $n = unshift @a, "rec3", "rec4$:";
+@$obj = ($meth, (bless [@$obj]), 1); # Avoid circular reference
 @old = splice(@h, 1, 2, qw(bananas just before));
 package XS::APItest; require XSLoader; XSLoader::load()
 $pa = { -exitval => $pa };
@@ -94,6 +95,7 @@ prog => 'use Config; CHECK { $Config{awk} }',
 $p->{share_dir} = { dist => [ $p->{share_dir} ] };
 $p->{share_dir} = { dist => $p->{share_dir} };
 { push (@Bad, $key) }
+( push @hard, $file ), next
 { push @keep, $_ }
 { push (@values, $value) }
 $resp = [$resp]
@@ -102,6 +104,7 @@ $share_dir->{dist} = [ $share_dir->{dist} ];
 sleep;
 sleep(300);
 sleep($waitfor - 2);    # Workaround for perlbug #49073
+s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,#_;END{print"@m"}'
 $spec = [$spec, $_[0]];
 $stack[$i++] &= ~1;
 $step = [$step];