Bug 25898: Prohibit indirect object notation

[srvgit] / serials / add_user_search.pl

diff --git a/serials/add_user_search.pl b/serials/add_user_search.pl
index 6b77c9e..dedce1d 100755 (executable)
--- a/serials/add_user_search.pl
+++ b/serials/add_user_search.pl
@@ -26,7 +26,7 @@ use C4::Members;
 
 use Koha::Patron::Categories;
 
-my $input = new CGI;
+my $input = CGI->new;
 
 my $dbh = C4::Context->dbh;