Lines 30-35
Link Here
|
30 |
use strict; |
30 |
use strict; |
31 |
use warnings; |
31 |
use warnings; |
32 |
|
32 |
|
|
|
33 |
use feature 'say'; |
34 |
|
33 |
# CPAN modules |
35 |
# CPAN modules |
34 |
use DBI; |
36 |
use DBI; |
35 |
use Getopt::Long; |
37 |
use Getopt::Long; |
Lines 12628-12634
foreach my $file ( sort readdir $dirh ) {
Link Here
|
12628 |
my $installer = C4::Installer->new(); |
12630 |
my $installer = C4::Installer->new(); |
12629 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
12631 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
12630 |
} elsif ( $file =~ /\.perl$/ ) { |
12632 |
} elsif ( $file =~ /\.perl$/ ) { |
12631 |
do $update_dir . $file; |
12633 |
my $r = do $update_dir . $file; |
|
|
12634 |
unless ($r) { |
12635 |
say "Couldn't parse $file: $@" if $@; |
12636 |
say "Couldn't do $file: $!" unless defined $r; |
12637 |
say "Couldn't run $file" unless $r; |
12638 |
} |
12632 |
} |
12639 |
} |
12633 |
} |
12640 |
} |
12634 |
|
12641 |
|
12635 |
- |
|
|