Bug 25898: Prohibit indirect object notation

[srvgit] / admin / desks.pl

diff --git a/admin/desks.pl b/admin/desks.pl
index 4fee477..352ff8b 100755 (executable)
--- a/admin/desks.pl
+++ b/admin/desks.pl
@@ -26,7 +26,7 @@ use C4::Output;
 
 use Koha::Desks;
 
-my $input       = new CGI;
+my $input       = CGI->new;
 my $searchfield = $input->param('desk_name') // q||;
 my $desk_id      = $input->param('desk_id') || '';
 my $op          = $input->param('op') || 'list';