Bug 25898: Prohibit indirect object notation

[srvgit] / acqui / z3950_search.pl

diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index adb9890..10399d5 100755 (executable)
--- a/acqui/z3950_search.pl
+++ b/acqui/z3950_search.pl
@@ -31,7 +31,7 @@ use C4::Koha;
 use Koha::Acquisition::Booksellers;
 use Koha::BiblioFrameworks;
 
-my $input           = new CGI;
+my $input           = CGI->new;
 my $biblionumber    = $input->param('biblionumber')||0;
 my $frameworkcode   = $input->param('frameworkcode') || q{};
 my $title           = $input->param('title');