Bug 25898: Fix new occurrences

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

admin/background_jobs.pl

@@ -27,7 +27,7 @@ use C4::Output;
 use Koha::BackgroundJobs;
 use Koha::Virtualshelves;
 
-my $input             = new CGI;
+my $input             = CGI->new;
 my $op                = $input->param('op') || 'list';
 my @messages;
 

course_reserves/batch_rm_items.pl

@@ -28,7 +28,7 @@ use C4::CourseReserves qw(GetItemCourseReservesInfo DelCourseReserve GetCourseIt
 
 use Koha::Items;
 
-my $cgi = new CGI;
+my $cgi = CGI->new;
 
 my $action    = $cgi->param('action')    || q{};
 my $barcodes  = $cgi->param('barcodes')  || q{};

debian/list-deps

@@ -45,7 +45,7 @@ my %ignore = (
 
 my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl5/[0-9.]+)";
 
-my $pm   = new Parallel::ForkManager( Sys::CPU::cpu_count() );
+my $pm   = Parallel::ForkManager( Sys::CPU::cpu_count() )->new;
 
 my $modules = C4::Installer::PerlModules->new();
 my $prereqs = $modules->prereqs;

t/db_dependent/Record/marcrecord2csv.t

@@ -134,7 +134,7 @@ subtest 'Test for subfields 0' => sub {
 
     # We change the barcode of the second item record to prevent an error "duplicate entry"
     my $field     = $record->field('952');
-    my $new_field = new MARC::Field(
+    my $new_field = MARC::Field->new(
         '952', ' ', ' ',
         0 => '1',
         p => '3010023918',