database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-14 18:42:34 +03:00
Code Activity

Fix compile-time warnings on all perl code

Browse Source 
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.
This commit is contained in:
Andrew Dunstan
2018-05-31 08:13:02 -04:00
parent d3b10f0d64
commit 0039049fb1
9 changed files with 81 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/tools/msvc/MSBuildProject.pm
View File

@ -11,6 +11,8 @@ use strict;
use warnings;
use base qw(Project);
no warnings qw(redefine); ## no critic
sub _new
{
my $classname = shift;
@ -399,6 +401,8 @@ use strict;
use warnings;
use base qw(MSBuildProject);
no warnings qw(redefine); ## no critic
sub new
{
my $classname = shift;
@ -420,6 +424,8 @@ use strict;
use warnings;
use base qw(MSBuildProject);
no warnings qw(redefine); ## no critic
sub new
{
my $classname = shift;
@ -464,6 +470,8 @@ use strict;
use warnings;
use base qw(VC2012Project);
no warnings qw(redefine); ## no critic
sub new
{
my $classname = shift;
@ -487,6 +495,8 @@ use strict;
use warnings;
use base qw(VC2012Project);
no warnings qw(redefine); ## no critic
sub new
{
my $classname = shift;
@ -510,6 +520,8 @@ use strict;
use warnings;
use base qw(VC2012Project);
no warnings qw(redefine); ## no critic
sub new
{
my $classname = shift;