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

diff --git a/src/test/recovery/t/001_stream_rep.pl b/src/test/recovery/t/001_stream_rep.pl
index 07a9912ce2667168c8d9df0fff5463b2d9970677..01a1daf00499590a45a50bc0c2b4402e83351e3e 100644 (file)
--- 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 ";