diff options
author | Andrew Dunstan | 2018-05-31 12:13:02 +0000 |
---|---|---|
committer | Andrew Dunstan | 2018-05-31 12:13:02 +0000 |
commit | 0039049fb1d76afef05d550823b27731ad7d7b3d (patch) | |
tree | e1885702d5dcde46e0108dbb1cbc257d334eb90e /src/tools/msvc/VCBuildProject.pm | |
parent | d3b10f0d64e90e9c78b8adc24ab3e38b30ef60bd (diff) |
Fix compile-time warnings on all perl code
This patch does two things. First, it silences a number of compile-time
warnings in the msvc tools files, mainly those due to the fact that in
some cases we have more than one package per file. Second it supplies a
dummy Perl library with just enough of the Windows API referred to in
our code to let it run these checks cleanly, even on Unix machines where
the code is never supposed to run. The dummy library should only be used
for that purpose, as its README notes.
Diffstat (limited to 'src/tools/msvc/VCBuildProject.pm')
-rw-r--r-- | src/tools/msvc/VCBuildProject.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/tools/msvc/VCBuildProject.pm b/src/tools/msvc/VCBuildProject.pm index 03b890b9b74..09152b2bbc4 100644 --- a/src/tools/msvc/VCBuildProject.pm +++ b/src/tools/msvc/VCBuildProject.pm @@ -11,6 +11,8 @@ use strict; use warnings; use base qw(Project); +no warnings qw(redefine); ## no critic + sub _new { my $classname = shift; @@ -268,6 +270,8 @@ use strict; use warnings; use base qw(VCBuildProject); +no warnings qw(redefine); ## no critic + sub new { my $classname = shift; @@ -289,6 +293,8 @@ use strict; use warnings; use base qw(VCBuildProject); +no warnings qw(redefine); ## no critic + sub new { my $classname = shift; |