From f58a6f4e107900618fd313405bf09994de0ea203 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Mon, 1 Oct 2012 17:35:45 +0200 Subject: [PATCH] Bug 3387 follow-up: fix perlcritic error --- C4/Circulation.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index f80f10979d..7485de55b2 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -1833,7 +1833,8 @@ sub AddReturn { # find reserves..... # if we don't have a reserve with the status W, we launch the Checkreserves routine - my ($resfound, $resrec, undef) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ) unless ( $item->{'wthdrawn'} ); + my ($resfound, $resrec); + ($resfound, $resrec, undef) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ) unless ( $item->{'wthdrawn'} ); if ($resfound) { $resrec->{'ResFound'} = $resfound; $messages->{'ResFound'} = $resrec; -- 2.39.5