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

(-)a/installer/data/mysql/updatedatabase.pl (-2 / +8 lines)
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
- 

Return to bug 16684