Lines 849-855
sub run_atomic_updates {
Link Here
|
849 |
my $code = read_file( $filepath ); |
849 |
my $code = read_file( $filepath ); |
850 |
my ( $out, $err ) = ('', ''); |
850 |
my ( $out, $err ) = ('', ''); |
851 |
{ |
851 |
{ |
852 |
open my $oldout, qw{>}, "&STDOUT"; |
852 |
open my $oldout, qw{>&}, "STDOUT"; |
853 |
close STDOUT; |
853 |
close STDOUT; |
854 |
open STDOUT,'>:encoding(utf8)', \$out; |
854 |
open STDOUT,'>:encoding(utf8)', \$out; |
855 |
my $DBversion = Koha::version; # We need $DBversion and $dbh for the eval |
855 |
my $DBversion = Koha::version; # We need $DBversion and $dbh for the eval |