Bug 19080: Fix perlcritic in routing-lists.pl

Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/members/routing-lists.pl b/members/routing-lists.pl
index 5726a20..b03be94 100755 (executable)
--- a/members/routing-lists.pl
+++ b/members/routing-lists.pl
@@ -48,7 +48,8 @@ my $borrowernumber = $query->param('borrowernumber');
 
 my $branch = C4::Context->userenv->{'branch'};
 
-my $patron = Koha::Patrons->find( $borrowernumber ) if $borrowernumber;
+my $patron;
+$patron = Koha::Patrons->find( $borrowernumber ) if $borrowernumber;
 unless ( $patron ) {
     print $query->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber");
     exit;