This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
leakfinder.pl: Another exception
authorFather Chrysostomos <sprout@cpan.org>
Mon, 5 Nov 2012 21:07:47 +0000 (13:07 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 6 Nov 2012 20:33:36 +0000 (12:33 -0800)
Porting/leakfinder.pl

index 434013b..0d43173 100644 (file)
@@ -53,6 +53,7 @@ eval 'v23: $counter++; goto v23 unless $counter == 2';
 eval 'v23 : $counter++; goto v23 unless $counter == 2';
 END { unlink "./foo"; }
 exit 1;
+    my $select_ret = select($rout = $rin, undef, undef, $timeout);
         push @a, \$x;
        push(@non_v, "#$_"); # not a name='value' line
            push @v_others, "CONFIG='$v'\n";