From d422a2a94b1e7a7bb25da9d5511fffff750c3f21 Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Tue, 2 Mar 2021 23:32:43 -0500 Subject: [PATCH] Silence perlcritic warning in commit ee28cacf6. Per buildfarm; this fix is from Michael Paquier (vignesh C proposed nearly the same). Discussion: https://postgr.es/m/YD8IZ9OKfUf9X1eF@paquier.xyz --- src/test/recovery/t/001_stream_rep.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/test/recovery/t/001_stream_rep.pl b/src/test/recovery/t/001_stream_rep.pl index 07a9912ce26..01a1daf0049 100644 --- a/src/test/recovery/t/001_stream_rep.pl +++ b/src/test/recovery/t/001_stream_rep.pl @@ -85,7 +85,8 @@ sub test_target_session_attrs my $node2_port = $node2->port; my $node2_name = $node2->name; - my $target_name = $target_node->name if (defined $target_node); + my $target_name = undef; + $target_name = $target_node->name if (defined $target_node); # Build connection string for connection attempt. my $connstr = "host=$node1_host,$node2_host ";