use Term::ReadLine;
use Equinox::Migration::SimpleTagList;
-binmode STDOUT, ":utf8";
my $term = new Term::ReadLine 'yaz-cleanup';
my $OUT = $term->OUT || \*STDOUT;
+binmode STDOUT, ":utf8";
+binmode $OUT, ":utf8";
$| = 1;
my $osub = $conf->{'original-subfield'};
$recmeta{oid} = 'NONE';
- until ($line =~ m|</record>|) {
+ # skim to end of this tag
+ until ($line =~ m|</datafield>|) {
if ($line =~ /<subfield code="$osub">(.+?)</)
{ $recmeta{oid} = $1 }
$lptr++;