fix a perl typo

adunstan · adunstan · commit 3f222b676d5c · 2015-11-19T02:43:11.000-05:00
diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
@@ -208,7 +208,7 @@ sub bincheck
 	my @bin_dirs = glob("$topdir/src/bin/*");
 
 	# Process each test
-	foreach my $dir (@$bin_dirs)
+	foreach my $dir (@bin_dirs)
 	{
 		next unless -d "$dir/t";
 		my $status = tap_check($dir);

Original file line number	Diff line number	Diff line change
`@@ -208,7 +208,7 @@ sub bincheck`
`208`	`208`	`my @bin_dirs = glob("$topdir/src/bin/*");`
`209`	`209`
`210`	`210`	`# Process each test`
`211`		`- foreach my $dir (@$bin_dirs)`
	`211`	`+ foreach my $dir (@bin_dirs)`
`212`	`212`	`{`
`213`	`213`	`next unless -d "$dir/t";`
`214`	`214`	`my $status = tap_check($dir);`