From b64eceeb91f70b17b679334dce71d8dff6c4cfc7 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 14 Nov 2012 18:05:04 -0800
Subject: [PATCH] leakfinder.pl: More exceptions

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

diff --git a/Porting/leakfinder.pl b/Porting/leakfinder.pl
index 7aa0322..985cea2 100644
--- a/Porting/leakfinder.pl
+++ b/Porting/leakfinder.pl
@@ -50,6 +50,8 @@ end
 
 BEGIN {
  @exceptions = split /^/, <<'end';
+1 while some_condition_with_side_effects;  */
+$a{buttons}[2*$a{default_button}] = [$a{buttons}[2*$a{default_button}]];
 $aliases{$code_point} = [ $aliases{$code_point} ];
 $aliases_maps->[$i] = [ $aliases_maps->[$i] ]
 $allow ? $hash{$acc} = $allow : push @list, $acc;
@@ -110,7 +112,10 @@ s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,#_;END{print"@m"}'
 $spec = [$spec, $_[0]];
 $stack[$i++] &= ~1;
 $step = [$step];
+the while clause.  */
 Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers
+*tmpl = ~*tmpl;
+*tmps = ~*tmps;
 weaken($objs[@objs] = $h{$_} = []);
 weaken($objs[@objs] = $$h{$_} = []);
 while (1) { my $k; }
-- 
2.7.4