Bug 25898: Prohibit indirect object notation

[srvgit] / svc / cover_images

diff --git a/svc/cover_images b/svc/cover_images
index 688067f..82e68f2 100755 (executable)
--- a/svc/cover_images
+++ b/svc/cover_images
@@ -25,7 +25,7 @@ use C4::Auth qw/check_cookie_auth/;
 use Koha::CoverImages;
 use JSON qw/to_json/;
 
-my $input = new CGI;
+my $input = CGI->new;
 
 my ( $auth_status, $sessionID ) =
         check_cookie_auth(