@@ -, +, @@ --- installer/data/mysql/updatedatabase.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -8791,8 +8791,8 @@ $/ = ';'; while (readdir $dirh) { next unless $_ =~ /\.sql$/; # skip non SQL files # open and read file; - open FILE, "<", C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_"; - while ( ) { + open my $file, "<", C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_"; + while ( <$file> ) { my $line = $_; $line =~ s/\n//g; $dbh->do($line) if $line; --