@@ -, +, @@ statements for @backends variable. (custom_capability): Explicitly dereference `$self->capabilities`. --- Koha/Illrequest.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) --- a/Koha/Illrequest.pm +++ a/Koha/Illrequest.pm @@ -355,7 +355,7 @@ $PARAMS, or 0 if $CANDIDATE is an unknown method on backend. sub custom_capability { my ( $self, $candidate, $params ) = @_; - foreach my $capability ( values $self->capabilities ) { + foreach my $capability ( values %{$self->capabilities} ) { if ( $candidate eq $capability->{method} ) { my $response = $self->_backend->$candidate({ @@ -372,8 +372,8 @@ sub available_backends { my ( $self ) = @_; my $backend_dir = $self->_config->backend_dir; my @backends = (); - my @backends = <$backend_dir/*> if ( $backend_dir ); - my @backends = map { basename($_) } @backends; + @backends = <$backend_dir/*> if ( $backend_dir ); + @backends = map { basename($_) } @backends; return \@backends; } --