@@ -, +, @@ --- installer/data/mysql/updatedatabase.pl | 3 +++ 1 file changed, 3 insertions(+) --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -9732,12 +9732,15 @@ sub ExecDBRev { $rv = 1; } elsif( $file =~ /\.pl$/ ) { #Run perl script + my $dbh = C4::Context->dbh; + $dbh->{RaiseError} = 1; $rv = do $atomicupd->{location}. "/$file"; if( !$rv ) { print "ERROR: $@\n" if $@; print "ERROR: $!\n" if $! && !$@; $rv = 1 if !$! && !$@; #apparently, the file does not end with 1; } + $dbh->{RaiseError} = 0; } elsif( $file =~ /\.sql$/ ) { #Run sql file via installer my $installer = C4::Installer->new(); --