View | Details | Raw Unified | Return to bug 25898
Collapse All | Expand All

(-)a/admin/background_jobs.pl (-1 / +1 lines)
Lines 27-33 use C4::Output; Link Here
27
use Koha::BackgroundJobs;
27
use Koha::BackgroundJobs;
28
use Koha::Virtualshelves;
28
use Koha::Virtualshelves;
29
29
30
my $input             = new CGI;
30
my $input             = CGI->new;
31
my $op                = $input->param('op') || 'list';
31
my $op                = $input->param('op') || 'list';
32
my @messages;
32
my @messages;
33
33
(-)a/course_reserves/batch_rm_items.pl (-1 / +1 lines)
Lines 28-34 use C4::CourseReserves qw(GetItemCourseReservesInfo DelCourseReserve GetCourseIt Link Here
28
28
29
use Koha::Items;
29
use Koha::Items;
30
30
31
my $cgi = new CGI;
31
my $cgi = CGI->new;
32
32
33
my $action    = $cgi->param('action')    || q{};
33
my $action    = $cgi->param('action')    || q{};
34
my $barcodes  = $cgi->param('barcodes')  || q{};
34
my $barcodes  = $cgi->param('barcodes')  || q{};
(-)a/debian/list-deps (-1 / +1 lines)
Lines 45-51 my %ignore = ( Link Here
45
45
46
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.]+)";
46
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.]+)";
47
47
48
my $pm   = new Parallel::ForkManager( Sys::CPU::cpu_count() );
48
my $pm   = Parallel::ForkManager( Sys::CPU::cpu_count() )->new;
49
49
50
my $modules = C4::Installer::PerlModules->new();
50
my $modules = C4::Installer::PerlModules->new();
51
my $prereqs = $modules->prereqs;
51
my $prereqs = $modules->prereqs;
(-)a/t/db_dependent/Record/marcrecord2csv.t (-2 / +1 lines)
Lines 134-140 subtest 'Test for subfields 0' => sub { Link Here
134
134
135
    # We change the barcode of the second item record to prevent an error "duplicate entry"
135
    # We change the barcode of the second item record to prevent an error "duplicate entry"
136
    my $field     = $record->field('952');
136
    my $field     = $record->field('952');
137
    my $new_field = new MARC::Field(
137
    my $new_field = MARC::Field->new(
138
        '952', ' ', ' ',
138
        '952', ' ', ' ',
139
        0 => '1',
139
        0 => '1',
140
        p => '3010023918',
140
        p => '3010023918',
141
- 

Return to bug 25898