@@ -, +, @@ --- 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(-) --- a/admin/background_jobs.pl +++ a/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; --- a/course_reserves/batch_rm_items.pl +++ a/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{}; --- a/debian/list-deps +++ a/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; --- a/t/db_dependent/Record/marcrecord2csv.t +++ a/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', --