Loading tests/runtests.pl +7 −0 Original line number Diff line number Diff line Loading @@ -3809,10 +3809,17 @@ sub singletest { my $strip; for $strip (@stripfile) { chomp $strip; my @newgen; for(@generated) { eval $strip; if($_) { push @newgen, $_; } } # this is to get rid of array entries that vanished (zero # length) because of replacements @generated = @newgen; } @outfile = fixarray(@outfile); Loading Loading
tests/runtests.pl +7 −0 Original line number Diff line number Diff line Loading @@ -3809,10 +3809,17 @@ sub singletest { my $strip; for $strip (@stripfile) { chomp $strip; my @newgen; for(@generated) { eval $strip; if($_) { push @newgen, $_; } } # this is to get rid of array entries that vanished (zero # length) because of replacements @generated = @newgen; } @outfile = fixarray(@outfile); Loading