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

(-)a/C4/Ris.pm (-2 / +1 lines)
Lines 108-114 sub marc2ris { Link Here
108
    open my $oldout, ">&STDOUT";
108
    open my $oldout, ">&STDOUT";
109
    my $outvar;
109
    my $outvar;
110
    close STDOUT;
110
    close STDOUT;
111
    open STDOUT,'>', \$outvar;
111
    open STDOUT,'>:encoding(utf8)', \$outvar;
112
112
113
    ## First we should check the character encoding. This may be
113
    ## First we should check the character encoding. This may be
114
    ## MARC-8 or UTF-8. The former is indicated by a blank, the latter
114
    ## MARC-8 or UTF-8. The former is indicated by a blank, the latter
115
- 

Return to bug 14832