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

(-)a/installer/data/mysql/updatedatabase.pl (-3 / +2 lines)
Lines 8791-8798 $/ = ';'; Link Here
8791
while (readdir $dirh) {
8791
while (readdir $dirh) {
8792
    next unless $_ =~ /\.sql$/; # skip non SQL files
8792
    next unless $_ =~ /\.sql$/; # skip non SQL files
8793
    # open and read file;
8793
    # open and read file;
8794
    open FILE, "<",  C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_";
8794
    open my $file, "<",  C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_";
8795
    while ( <FILE> ) {
8795
    while ( <$file> ) {
8796
        my $line = $_;
8796
        my $line = $_;
8797
        $line =~ s/\n//g;
8797
        $line =~ s/\n//g;
8798
        $dbh->do($line) if $line;
8798
        $dbh->do($line) if $line;
8799
- 

Return to bug 13068