diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2018-05-27 09:08:42 -0400 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2018-05-27 09:08:42 -0400 |
| commit | 3a7cc727c7c502353dbb730a0db793abec4de44b (patch) | |
| tree | c140b2974559d0a13d98c132ae52f7d0992aff95 /src/test/perl/SimpleTee.pm | |
| parent | 8a56ff484808e9c05df9656cf4244229e8c7960d (diff) | |
| download | postgresql-3a7cc727c7c502353dbb730a0db793abec4de44b.tar.gz postgresql-3a7cc727c7c502353dbb730a0db793abec4de44b.zip | |
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/test/perl/SimpleTee.pm')
| -rw-r--r-- | src/test/perl/SimpleTee.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test/perl/SimpleTee.pm b/src/test/perl/SimpleTee.pm index ea2f2ee8287..9de7b1ac323 100644 --- a/src/test/perl/SimpleTee.pm +++ b/src/test/perl/SimpleTee.pm @@ -13,7 +13,7 @@ use strict; sub TIEHANDLE { my $self = shift; - bless \@_, $self; + return bless \@_, $self; } sub PRINT |