From f8b80abbd0890de3da2a570422b240f24cbb9c30 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 15 Oct 2020 13:56:41 +0200 Subject: [PATCH] Bug 25898: Fix new occurrences Signed-off-by: Jonathan Druart --- admin/background_jobs.pl | 2 +- course_reserves/batch_rm_items.pl | 2 +- debian/list-deps | 2 +- t/db_dependent/Record/marcrecord2csv.t | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/admin/background_jobs.pl b/admin/background_jobs.pl index 1d36b97e64..1835e831e4 100755 --- a/admin/background_jobs.pl +++ b/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; diff --git a/course_reserves/batch_rm_items.pl b/course_reserves/batch_rm_items.pl index be8654089e..bd78bc41c9 100755 --- a/course_reserves/batch_rm_items.pl +++ b/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{}; diff --git a/debian/list-deps b/debian/list-deps index dd660fa34d..888b5456e9 100755 --- a/debian/list-deps +++ b/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; diff --git a/t/db_dependent/Record/marcrecord2csv.t b/t/db_dependent/Record/marcrecord2csv.t index 722c23324a..37b6e30583 100755 --- a/t/db_dependent/Record/marcrecord2csv.t +++ b/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', -- 2.39.5