fix a perl typo

diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
index 1723a5644ecdc33393b9b408f62eff4c1b76d249..5bc8dbc7fc5f60facda48edd4ba8e832963b7b00 100644 (file)
--- a/src/tools/msvc/vcregress.pl
+++ b/src/tools/msvc/vcregress.pl
@@ -205,7 +205,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);