@@ -, +, @@ Failed test 'Test::Perl::Critic for "reserve/request.pl"' at /usr/share/perl5/Test/Perl/Critic.pm line 110. --- reserve/request.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/reserve/request.pl +++ a/reserve/request.pl @@ -311,7 +311,7 @@ foreach my $biblionumber (@biblionumbers) { ## Here we go backwards again to create hash of biblioitemnumber to itemnumbers, ## when by definition all of the itemnumber have the same biblioitemnumber - my ( $itemnumbers_of_biblioitem, $iteminfos_of); + my ( $iteminfos_of ); while ( my $item = $items->next ) { $item = $item->unblessed; my $biblioitemnumber = $item->{biblioitemnumber}; --