selftest: Fix generation of test id file.

1 files changed, 4 insertions, 4 deletions

diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 090e87bc590..14ed26f5511 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";
 		}