leakfinder.pl: More exceptions
authorFather Chrysostomos <sprout@cpan.org>
Tue, 11 Dec 2012 13:51:03 +0000 (05:51 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 13 Dec 2012 02:05:10 +0000 (18:05 -0800)
Porting/leakfinder.pl

index 760a4d3..f0e976d 100644 (file)
@@ -92,6 +92,7 @@ $got_arrayref ? unshift(@{$args[0]}, $cmd) : unshift(@args, $cmd);
 $h{ []} = 123;
 { $h[++$i] = $_ }
 High resolution alarm, sleep, gettimeofday, interval timers
+if (-d "$directory/$_") { push    @ARGV, "$directory/$_" }
 $i = int($i/2) until defined $self->[$i/2];
 $invmap_ref->[$i] = [ $invmap_ref->[$i] ];
 is(push(@ary,4), 3);
@@ -127,6 +128,7 @@ print "LA LA LA\n" while 1;          # loops forever
 prog => 'use Config; CHECK { $Config{awk} }',
 $p->{share_dir} = { dist => [ $p->{share_dir} ] };
 $p->{share_dir} = { dist => $p->{share_dir} };
+-sleep
 $resp = [$resp]
 s/a|/push @bar, 1/e;
 $self->{DIR} = [grep $_, split ":", $self->{DIR}];