From 3a7cc727c7c502353dbb730a0db793abec4de44b Mon Sep 17 00:00:00 2001
From: Andrew Dunstan
Date: Sun, 27 May 2018 09:08:42 -0400
Subject: 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
---
 contrib/intarray/bench/create_test.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'contrib/intarray')

diff --git a/contrib/intarray/bench/create_test.pl b/contrib/intarray/bench/create_test.pl
index f3262df05b2..d2c678bb53c 100755
--- a/contrib/intarray/bench/create_test.pl
+++ b/contrib/intarray/bench/create_test.pl
@@ -83,4 +83,5 @@ sub copytable
 	while (<$fff>) { print; }
 	close $fff;
 	print "\\.\n";
+	return;
 }
-- 
cgit v1.2.3