leakfinder.pl: Many more exceptions

1 files changed, 55 insertions, 1 deletions

diff --git a/Porting/leakfinder.pl b/Porting/leakfinder.pl
index 3c1c078e1b..babec7cfba 100644
--- a/Porting/leakfinder.pl
+++ b/Porting/leakfinder.pl
@@ -23,7 +23,7 @@ for(`find .`) {
     next if exists $exceptions{s/^\s+//r};
     next if /rm -rf/; # Could be an example from perlsec, e.g.
     next if /END\s*\{/; # Creating an END block creates SVs, obviously
-    next if /^\s*(?:push|unshift)/;
+    next if /^\s*(?:push|unshift|(?:\@r = )?splice)/;
     next if /\bselect(?:\s*\()[^()]+,/; # 4-arg select hangs
     my $q = s/[\\']/sprintf "\\%02x", ord $&/gore
          =~ s/\0/'."\\0".'/grid;
@@ -50,11 +50,65 @@ end
 
 BEGIN {
  @exceptions = split /^/, <<'end';
+$allow ? $hash{$acc} = $allow : push @list, $acc;
+$args{include_dirs} = [ $args{include_dirs} ] 
+$ARRAY[++$#ARRAY] = $value;
+$a = {x => $a};
+BEGIN { unshift(@INC, "./blib") }
+BEGIN { unshift(\@INC, LIST) }
+binmode *STDERR, ":encoding(utf8)";
+binmode *STDOUT, ":encoding(utf8)";
 $char++ while substr( $got, $char, 1 ) eq substr( $wanted, $char, 1 );
+CHECK { $main::phase++ }
+const char* file = __FILE__;
+$data = [ $data ];
+do { $tainted_value = shift @ENV_values  } while(!$tainted_value || ref $tainted_value);
 do {$x[$x] = $x;} while ($x++) < 10;
 eval 'v23: $counter++; goto v23 unless $counter == 2';
 eval 'v23 : $counter++; goto v23 unless $counter == 2';
+$formdata->{$key} = [ $formdata->{$key}, $value ];
+$got_arrayref ? unshift(@{$args[0]}, $cmd) : unshift(@args, $cmd);
+{ $h[++$i] = $_ }
+$i = int($i/2) until defined $self->[$i/2];
+$i++ while $self->{ids}{"$t$i"}++;
+$mod_hash->{$k} = [ $mod_hash->{$k} ];
+$modlibname =~ s,[\5c\5c/][^\5c\5c/]+$,, while $c--;    # Q&D basename
+my $nfound = select($_[0], $_[1], $_[2], $_[3]);
+my $nfound = select($_[0], $_[1], $_[2], $gran);
+my @result = splice @temp, $self, $offset, $length, @_;
+my @r = splice @a, 0, 1, "x", "y";
+$_ = {name=>$_};
+$n = push @a, "rec0", "rec1", "rec2";
+$n = push @a, "rec3", "rec4$:";
+$n = unshift @a, "rec0", "rec1", "rec2";
+$n = unshift @a, "rec3", "rec4$:";
+@old = splice(@h, 1, 2, qw(bananas just before));
+package XS::APItest; require XSLoader; XSLoader::load()
+$pa = { -exitval => $pa };
+$pa = { -message => $pa };
+pop @lines while $lines[-1] eq "";
+pop @to while $#to and $to[$#to] == $to[$#to -1];
+prog => 'use Config; CHECK { $Config{awk} }',
+$p->{share_dir} = { dist => [ $p->{share_dir} ] };
+$p->{share_dir} = { dist => $p->{share_dir} };
+{ push (@Bad, $key) }
+{ push @keep, $_ }
+{ push (@values, $value) }
+$resp = [$resp]
+$self->{DIR} = [grep $_, split ":", $self->{DIR}];
+$share_dir->{dist} = [ $share_dir->{dist} ];
 sleep;
+sleep($waitfor - 2);    # Workaround for perlbug #49073
+$spec = [$spec, $_[0]];
+$step = [$step];
+Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers
+weaken($objs[@objs] = $h{$_} = []);
+weaken($objs[@objs] = $$h{$_} = []);
+while (1) { my $k; }
+while(1) { sleep(1); }
+$x->[$j] -= $BASE if $car = (($x->[$j] += $car) >= $BASE) ? 1 : 0; $j++;
+$x->[scalar @$x] = 0;		# avoid || 0 test inside loop
+$z = splice @a, 3, 1, "recordZ";
 end
  @exceptions{@exceptions} = ();
 }