diff options
| author | Noah Misch <noah@leadboat.com> | 2020-06-07 16:27:13 -0700 |
|---|---|---|
| committer | Noah Misch <noah@leadboat.com> | 2020-06-07 16:27:18 -0700 |
| commit | 5c28a7bf1c57756e8992c2a6a083a34109f38323 (patch) | |
| tree | fde4a6f6e04c99ced6a1a383757ca9e88738e891 /src | |
| parent | d7f93f9b3ded5c93f5b79964f958a432ee6d5b13 (diff) | |
MSVC: Avoid warning when testing a TAP suite without PROVE_FLAGS.
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).
Diffstat (limited to 'src')
| -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 4387f3d5b90..9d6d6c29841 100644 --- a/src/tools/msvc/vcregress.pl +++ b/src/tools/msvc/vcregress.pl @@ -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); |