From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Fri, 3 Jan 2020 00:44:43 +0000 (-0500)
Subject: Minor portability fixes for new TAP script.
X-Git-Tag: REL_13_BETA1~938
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=90d7f6604b6ed2dcedee2884c3b01541600515cb;p=thirdparty%2Fpostgresql.git

Minor portability fixes for new TAP script.

Satisfy perlcritic, mostly.  Per buildfarm.
---

diff --git a/src/bin/psql/t/010_tab_completion.pl b/src/bin/psql/t/010_tab_completion.pl
index 1c7610ffac4..a02cbd8e476 100644
--- a/src/bin/psql/t/010_tab_completion.pl
+++ b/src/bin/psql/t/010_tab_completion.pl
@@ -6,7 +6,7 @@ use TestLib;
 use Test::More;
 use IPC::Run qw(pump finish timer);
 
-if ($ENV{with_readline} ne 'yes')
+if (!defined($ENV{with_readline}) || $ENV{with_readline} ne 'yes')
 {
 	plan skip_all => 'readline is not supported by this build';
 }
@@ -64,6 +64,7 @@ sub check_completion
 	ok($okay, $annotation);
 	# for debugging, log actual output if it didn't match
 	note 'Actual output was "' . $out . "\"\n" if !$okay;
+	return;
 }
 
 # Clear query buffer to start over
@@ -71,6 +72,7 @@ sub check_completion
 sub clear_query
 {
 	check_completion("\\r\n", "postgres=# ", "\\r works");
+	return;
 }
 
 # check basic command completion: SEL<tab> produces SELECT<space>