This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
leakfinder.pl: Yet mair exceptions
authorFather Chrysostomos <sprout@cpan.org>
Wed, 7 Nov 2012 07:56:56 +0000 (23:56 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 9 Nov 2012 05:20:22 +0000 (21:20 -0800)
Porting/leakfinder.pl

index 91453bc..3c1c078 100644 (file)
@@ -24,6 +24,7 @@ for(`find .`) {
     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 /\bselect(?:\s*\()[^()]+,/; # 4-arg select hangs
     my $q = s/[\\']/sprintf "\\%02x", ord $&/gore
          =~ s/\0/'."\\0".'/grid;
     $prog = <<end;   
@@ -49,11 +50,11 @@ end
 
 BEGIN {
  @exceptions = split /^/, <<'end';
+$char++ while substr( $got, $char, 1 ) eq substr( $wanted, $char, 1 );
 do {$x[$x] = $x;} while ($x++) < 10;
 eval 'v23: $counter++; goto v23 unless $counter == 2';
 eval 'v23 : $counter++; goto v23 unless $counter == 2';
-my $select_ret = select($rout = $rin, undef, undef, $timeout);
-select(undef,undef,undef,$delay);
+sleep;
 end
  @exceptions{@exceptions} = ();
 }