diff options
| author | Michael Paquier | 2024-07-02 00:47:16 +0000 |
|---|---|---|
| committer | Michael Paquier | 2024-07-02 00:47:16 +0000 |
| commit | 0c1aca461481216ff5a0e65538c4880bcf346433 (patch) | |
| tree | 0e15b5a00a6052ccd3cdd142f0369b4de442c7d0 /src/test/recovery | |
| parent | 978f38c771fb3a19fdd5cb73cb662441eb9e551c (diff) | |
Cleanup perl code from unused variables and routines
This commit removes unused variables and routines from some perl code
that have accumulated across the years. This touches the following
areas:
- Wait event generation script.
- AdjustUpgrade.pm.
- TAP perl code
Author: Alexander Lakhin
Reviewed-by: Dagfinn Ilmari Mannsåker
Discussion: https://postgr.es/m/[email protected]
Diffstat (limited to 'src/test/recovery')
| -rw-r--r-- | src/test/recovery/t/021_row_visibility.pl | 1 | ||||
| -rw-r--r-- | src/test/recovery/t/032_relfilenode_reuse.pl | 1 | ||||
| -rw-r--r-- | src/test/recovery/t/035_standby_logical_decoding.pl | 5 |
3 files changed, 1 insertions, 6 deletions
diff --git a/src/test/recovery/t/021_row_visibility.pl b/src/test/recovery/t/021_row_visibility.pl index 255caffb19d..d0461376014 100644 --- a/src/test/recovery/t/021_row_visibility.pl +++ b/src/test/recovery/t/021_row_visibility.pl @@ -168,7 +168,6 @@ $node_standby->stop; sub send_query_and_wait { my ($psql, $query, $untl) = @_; - my $ret; # send query $$psql{stdin} .= $query; diff --git a/src/test/recovery/t/032_relfilenode_reuse.pl b/src/test/recovery/t/032_relfilenode_reuse.pl index 96a8104b802..d473cd167c1 100644 --- a/src/test/recovery/t/032_relfilenode_reuse.pl +++ b/src/test/recovery/t/032_relfilenode_reuse.pl @@ -205,7 +205,6 @@ sub cause_eviction sub send_query_and_wait { my ($psql, $query, $untl) = @_; - my $ret; # For each query we run, we'll restart the timeout. Otherwise the timeout # would apply to the whole test script, and would need to be set very high diff --git a/src/test/recovery/t/035_standby_logical_decoding.pl b/src/test/recovery/t/035_standby_logical_decoding.pl index 4628f9fb806..4185b803b25 100644 --- a/src/test/recovery/t/035_standby_logical_decoding.pl +++ b/src/test/recovery/t/035_standby_logical_decoding.pl @@ -10,10 +10,7 @@ use PostgreSQL::Test::Cluster; use PostgreSQL::Test::Utils; use Test::More; -my ($stdin, $stdout, $stderr, - $cascading_stdout, $cascading_stderr, $subscriber_stdin, - $subscriber_stdout, $subscriber_stderr, $ret, - $handle, $slot); +my ($stdout, $stderr, $cascading_stdout, $cascading_stderr, $handle); my $node_primary = PostgreSQL::Test::Cluster->new('primary'); my $node_standby = PostgreSQL::Test::Cluster->new('standby'); |