From 75f4331ed0ab99637c332230569987bd6ac98fc3 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 28 Jul 2023 12:02:35 +0000 Subject: [PATCH] Bug 32748: (follow-up) Fix perlcritic error --- C4/Koha.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index 6fe447e6e9e..c9789e9baea 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -512,7 +512,8 @@ sub GetAuthorisedValues { my $category = shift // ''; # optional parameter my $opac = shift ? 1 : 0; # normalise to be safe my $options = shift // ''; - my $no_limit = $options->{'no_limit'} if $options; #optional parameter to ignore library limitation + my $no_limit; + if ($options) { $no_limit = $options->{'no_limit'}; } #optional parameter to ignore library limitation # Is this cached already? my $branch_limit = C4::Context::mybranch(); -- 2.39.5