diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2020-01-02 19:44:43 -0500 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2020-01-02 19:45:00 -0500 |
| commit | 90d7f6604b6ed2dcedee2884c3b01541600515cb (patch) | |
| tree | 1647a0f315a4894bc9f092780d17e22e42dab69d | |
| parent | 44e44bd258a71162444d41a1044c795f2c6dd3d1 (diff) | |
| download | postgresql-90d7f6604b6ed2dcedee2884c3b01541600515cb.tar.gz postgresql-90d7f6604b6ed2dcedee2884c3b01541600515cb.zip | |
Minor portability fixes for new TAP script.
Satisfy perlcritic, mostly. Per buildfarm.
| -rw-r--r-- | src/bin/psql/t/010_tab_completion.pl | 4 |
1 files changed, 3 insertions, 1 deletions
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> |