summaryrefslogtreecommitdiff
path: root/selftest/selftest.pl
diff options
context:
space:
mode:
Diffstat (limited to 'selftest/selftest.pl')
-rwxr-xr-xselftest/selftest.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 090e87bc59..14ed26f551 100755
--- a/selftest/selftest.pl
+++ b/selftest/selftest.pl
@@ -716,8 +716,8 @@ foreach my $testsuite (@available) {
$individual_tests->{$name} = [];
$match = $r;
$restricted_used->{$r} = 1;
- } elsif (substr($r, $name, length($name)+1) eq "$name.") {
- push(@{$individual_tests->{$name}}, $1);
+ } elsif (substr($r, 0, length($name)+1) eq "$name.") {
+ push(@{$individual_tests->{$name}}, substr($r, length($name)+1));
$match = $r;
$restricted_used->{$r} = 1;
}
@@ -948,8 +948,8 @@ $envvarstr
# test runner for this test suite supports it.
if ($$_[3] and $individual_tests and $individual_tests->{$name}) {
my ($fh, $listid_file) = tempfile(UNLINK => 0);
- foreach (@{$individual_tests->{$name}}) {
- print $fh "$_\n";
+ foreach my $test (@{$individual_tests->{$name}}) {
+ print $fh "$test\n";
}
$cmd .= " --load-list=$listid_file";
}