From e7724c0bd7262433384e1b9a8894af8162784f76 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 17 Apr 2023 08:24:12 -0300 Subject: [PATCH] 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 --- catalogue/showelastic.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/catalogue/showelastic.pl b/catalogue/showelastic.pl index 6bbf569b640..d9b2c53dbd4 100755 --- a/catalogue/showelastic.pl +++ b/catalogue/showelastic.pl @@ -39,7 +39,7 @@ use C4::XSLT ; use Koha::SearchEngine::Elasticsearch; use LWP::Simple qw/get/; -my $input= new CGI; +my $input= CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => "catalogue/showelastic.tt", -- 2.34.1