Bug 25898: Prohibit indirect object notation

[srvgit] / svc / bib_framework

diff --git a/svc/bib_framework b/svc/bib_framework
index 1b64010..5566d94 100755 (executable)
--- a/svc/bib_framework
+++ b/svc/bib_framework
@@ -26,7 +26,7 @@ use XML::Simple;
 
 binmode STDOUT, ':encoding(UTF-8)';
 
-my $query = new CGI;
+my $query = CGI->new;
 my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
 unless ($status eq 'ok') {
     print $query->header(-type => 'text/xml', -status => '403 Forbidden');