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

(-)a/C4/Installer.pm (-1 / +1 lines)
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
(-)a/C4/Ris.pm (-2 / +1 lines)
Lines 97-103 sub marc2ris { Link Here
97
    my $intype = lc($marcflavour);
97
    my $intype = lc($marcflavour);
98
98
99
    # Let's redirect stdout
99
    # Let's redirect stdout
100
    open my $oldout, qw{>}, "&STDOUT";
100
    open my $oldout, qw{>&}, "STDOUT";
101
    my $outvar;
101
    my $outvar;
102
    close STDOUT;
102
    close STDOUT;
103
    open STDOUT,'>:encoding(utf8)', \$outvar;
103
    open STDOUT,'>:encoding(utf8)', \$outvar;
104
- 

Return to bug 34174