Bug 25898: Prohibit indirect object notation

[srvgit] / tools / overduerules.pl

diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index 2ec8291..293c51c 100755 (executable)
--- a/tools/overduerules.pl
+++ b/tools/overduerules.pl
@@ -30,7 +30,7 @@ use Koha::Libraries;
 
 use Koha::Patron::Categories;
 
-our $input = new CGI;
+our $input = CGI->new;
 my $dbh = C4::Context->dbh;
 
 my @patron_categories = Koha::Patron::Categories->search( { overduenoticerequired => { '>' => 0 } } );