Bug 25898: Prohibit indirect object notation

[srvgit] / opac / opac-restrictedpage.pl

diff --git a/opac/opac-restrictedpage.pl b/opac/opac-restrictedpage.pl
index 19d0f72..e9a325a 100755 (executable)
--- a/opac/opac-restrictedpage.pl
+++ b/opac/opac-restrictedpage.pl
@@ -33,7 +33,7 @@ foreach my $IPRange ( split( ',', $localNetwork ) )
     last if $withinNetwork;
 }
 
-my $query = new CGI;
+my $query = CGI->new;
 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
     {
         template_name   => "opac-restrictedpage.tt",