use MARC::Record;
use MARC::File::XML (BinaryEncoding => 'UTF-8');
+ use MARC::Charset;
use strict;
+ MARC::Charset->assume_unicode(1);
+
my $target_xml = shift;
my $source_xml = shift;
my $field_spec = shift;
use MARC::Record;
use MARC::File::XML (BinaryEncoding => 'UTF-8');
+ use MARC::Charset;
use strict;
+ MARC::Charset->assume_unicode(1);
+
my $xml = shift;
my $r = MARC::Record->new_from_xml( $xml );