diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
index 5d3ad4dfd8..df1348bbe1 100644
--- 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);