diff options
-rwxr-xr-x | tests/runtests.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index 0de76e3d1..8a47d5853 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -3809,9 +3809,16 @@ 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); |