MSVC: Avoid warning when testing a TAP suite without PROVE_FLAGS.
authorNoah Misch <[email protected]>
Sun, 7 Jun 2020 23:27:13 +0000 (16:27 -0700)
committerNoah Misch <[email protected]>
Sun, 7 Jun 2020 23:27:19 +0000 (16:27 -0700)
Commit 7be5d8df1f74b78620167d3abf32ee607e728919 surfaced the logic
error, which had no functional implications, by adding "use warnings".
The buildfarm always customizes PROVE_FLAGS, so the warning did not
appear there.  Back-patch to 9.5 (all supported versions).

src/tools/msvc/vcregress.pl

index 1a9a282494f6ac7c9b8c7c41fc4d2f4aa94a0a32..2986a9053ab8337124f73a8dd0b9c99a8230e5d6 100644 (file)
@@ -189,7 +189,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);