Bug 25898: Prohibit indirect object notation

[srvgit] / admin / categories.pl

diff --git a/admin/categories.pl b/admin/categories.pl
index 749db2d..9bf5d36 100755 (executable)
--- a/admin/categories.pl
+++ b/admin/categories.pl
@@ -31,7 +31,7 @@ use Koha::DateUtils;
 use Koha::Patron::Categories;
 use Koha::Libraries;
 
-my $input         = new CGI;
+my $input         = CGI->new;
 my $searchfield   = $input->param('description') // q||;
 my $categorycode  = $input->param('categorycode');
 my $op            = $input->param('op') // 'list';