From fdf1a9252c27dbcbfdeb78f1b744a5031b699ed4 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 13 Nov 2012 14:53:33 -0800
Subject: [PATCH] leakfinder.pl: More exceptions

---
 Porting/leakfinder.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Porting/leakfinder.pl b/Porting/leakfinder.pl
index a69a4b8..d276563 100644
--- a/Porting/leakfinder.pl
+++ b/Porting/leakfinder.pl
@@ -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];
-- 
2.7.4