use 5.014;
use warnings;
use utf8;
-use open IO => ':utf8', ':std';
+use open IO => ':encoding(utf-8)', ':std';
use Data::Dump 'pp';
-our $VERSION = '1.00';
+our $VERSION = '1.01';
# translation table for deprecated code points
my %replace = (
say 'use utf8;';
say '+{';
while ($_ = readline) {
- my ($chrhex, $mnems, $sample, $name) = m{\A([0-9A-F]{4}) (.{11}) (.)\t(.*)}i
+ my ($chrhex, $mnems, $sample, $name) = m{\A([0-9A-F ]{5}) (.{11}) (.)\h(.*)}i
or warn("syntax error on line $.: $_"), next;
+ $chrhex =~ s/ $//;
my $chrnum = hex $chrhex;
my $chr = chr $chrnum;
$chr eq $sample