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

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
Lines 837-842 our $PERL_DEPS = { Link Here
837
        required => 1,
837
        required => 1,
838
        min_ver => '0.28',
838
        min_ver => '0.28',
839
    },
839
    },
840
    'Path::Tiny' => {
841
        usage => 'core',
842
        required => 1,
843
        min_ver => '0.058',
844
    }
840
};
845
};
841
846
842
1;
847
1;
(-)a/installer/data/mysql/updatedatabase.pl (-3 / +2 lines)
Lines 47-53 use MARC::File::XML ( BinaryEncoding => 'utf8' ); Link Here
47
47
48
use File::Path qw[remove_tree]; # perl core module
48
use File::Path qw[remove_tree]; # perl core module
49
use File::Spec;
49
use File::Spec;
50
use File::Slurp;
50
use Path::Tiny;
51
51
52
# FIXME - The user might be installing a new database, so can't rely
52
# FIXME - The user might be installing a new database, so can't rely
53
# on /etc/koha.conf anyway.
53
# on /etc/koha.conf anyway.
Lines 12823-12829 foreach my $file ( sort readdir $dirh ) { Link Here
12823
        my $installer = C4::Installer->new();
12823
        my $installer = C4::Installer->new();
12824
        my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
12824
        my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
12825
    } elsif ( $file =~ /\.perl$/ ) {
12825
    } elsif ( $file =~ /\.perl$/ ) {
12826
        my $code = read_file( $update_dir . $file );
12826
        my $code = path( $update_dir . $file )->slurp_utf8;
12827
        eval $code;
12827
        eval $code;
12828
        say "Atomic update generated errors: $@" if $@;
12828
        say "Atomic update generated errors: $@" if $@;
12829
    }
12829
    }
12830
- 

Return to bug 16685