Bug 25898: Prohibit indirect object notation

[srvgit] / authorities / authorities-home.pl

diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl
index 828ba24..66083d3 100755 (executable)
--- a/authorities/authorities-home.pl
+++ b/authorities/authorities-home.pl
@@ -38,7 +38,7 @@ use Koha::SearchEngine::QueryBuilder;
 use Koha::Token;
 use Koha::Z3950Servers;
 
-my $query = new CGI;
+my $query = CGI->new;
 my $dbh   = C4::Context->dbh;
 my $op           = $query->param('op')           || '';
 my $authtypecode = $query->param('authtypecode') || '';