Bug 18829: (QA follow-up) Replace forbidden indirect syntax

This pattern is forbidden and was overlooked by QA.

To test:
1. Run:
   $ ktd --shell
  k$ prove t/00-testcritic.t
=> FAIL: Tests fail with 'Subroutine "new" called using indirect
syntax...'
2. Apply this patch
3. Repeat 1
=> SUCCESS: Tests pass
4. Sign off :-D

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Tomás Cohen Arazi 2023-04-17 08:24:12 -03:00
parent d95f31dcc6
commit 1344050ab4
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F

View file

@ -39,7 +39,7 @@ use C4::XSLT ;
use Koha::SearchEngine::Elasticsearch; use Koha::SearchEngine::Elasticsearch;
use LWP::Simple qw/get/; use LWP::Simple qw/get/;
my $input= new CGI; my $input= CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{ {
template_name => "catalogue/showelastic.tt", template_name => "catalogue/showelastic.tt",