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