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

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

Return to bug 14832