diff options
| author | Andrew Dunstan | 2018-05-27 13:08:42 +0000 |
|---|---|---|
| committer | Andrew Dunstan | 2018-05-27 13:08:42 +0000 |
| commit | 3a7cc727c7c502353dbb730a0db793abec4de44b (patch) | |
| tree | c140b2974559d0a13d98c132ae52f7d0992aff95 /src/tools/msvc/VCBuildProject.pm | |
| parent | 8a56ff484808e9c05df9656cf4244229e8c7960d (diff) | |
Don't fall off the end of perl functions
This complies with the perlcritic policy
Subroutines::RequireFinalReturn, which is a severity 4 policy. Since we
only currently check at severity level 5, the policy is raised to that
level until we move to level 4 or lower, so that any new infringements
will be caught.
A small cosmetic piece of tidying of the pgperlcritic script is
included.
Mike Blackwell
Discussion: https://postgr.es/m/CAESHdJpfFm_9wQnQ3koY3c91FoRQsO-fh02za9R3OEMndOn84A@mail.gmail.com
Diffstat (limited to 'src/tools/msvc/VCBuildProject.pm')
| -rw-r--r-- | src/tools/msvc/VCBuildProject.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/tools/msvc/VCBuildProject.pm b/src/tools/msvc/VCBuildProject.pm index 57b8525f3fe..03b890b9b74 100644 --- a/src/tools/msvc/VCBuildProject.pm +++ b/src/tools/msvc/VCBuildProject.pm @@ -56,6 +56,7 @@ EOF </Configurations> EOF $self->WriteReferences($f); + return; } sub WriteFiles @@ -152,6 +153,7 @@ EOF print $f <<EOF; </Files> EOF + return; } sub Footer @@ -162,6 +164,7 @@ sub Footer <Globals/> </VisualStudioProject> EOF + return; } sub WriteConfiguration @@ -227,6 +230,7 @@ EOF print $f <<EOF; </Configuration> EOF + return; } sub WriteReferences @@ -239,6 +243,7 @@ sub WriteReferences " <ProjectReference ReferencedProjectIdentifier=\"$ref->{guid}\" Name=\"$ref->{name}\" />\n"; } print $f " </References>\n"; + return; } sub GenerateCustomTool |