fix a perl typo

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