Bug 25898: Prohibit indirect object notation

[srvgit] / tools / problem-reports.pl

diff --git a/tools/problem-reports.pl b/tools/problem-reports.pl
index c9a1afd..0b07511 100755 (executable)
--- a/tools/problem-reports.pl
+++ b/tools/problem-reports.pl
@@ -25,7 +25,7 @@ use C4::Output;
 use C4::Auth;
 use Koha::ProblemReports;
 
-my $query = new CGI;
+my $query = CGI->new;
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {