diff options
| -rw-r--r-- | src/tools/msvc/vcregress.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl index a7130017659..dac60f6264c 100644 --- a/src/tools/msvc/vcregress.pl +++ b/src/tools/msvc/vcregress.pl @@ -196,7 +196,7 @@ sub tap_check unless $config->{tap_tests}; my @flags; - foreach my $arg (0 .. scalar(@_)) + foreach my $arg (0 .. scalar(@_) - 1) { next unless $_[$arg] =~ /^PROVE_FLAGS=(.*)/; @flags = split(/\s+/, $1); |