utf8 handling fixes 'Wide character in print at' encoding errors.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/misc/migration_tools/rebuild_zebra_idx.pl b/misc/migration_tools/rebuild_zebra_idx.pl
index ecc0909..2ed7a1f 100755 (executable)
--- a/misc/migration_tools/rebuild_zebra_idx.pl
+++ b/misc/migration_tools/rebuild_zebra_idx.pl
@@ -42,7 +42,7 @@ my $i=0;
 while ((my $biblionumber) = $sth->fetchrow) {
        my $record = GetMarcBiblio($biblionumber);
        my $filename = $cgidir."/tmp/BIBLIO".$biblionumber.".iso2709";
-       open F,"> $filename";
+       open F,">:utf8", $filename;
     eval {print F $record->as_usmarc(); };
     warn "ERROR: writing biblio $biblionumber failed" if $@;
        close F;