next;
}
my $chr = $di->{$mnem};
+ my $glyph = chr $chr;
+ utf8::upgrade($glyph); # prevent latin1 output
my @class = 'any';
printf '<td class="%s" title="%s">%s',
- join(' ', @class), quote($mnem), quote(chr $chr);
+ join(' ', @class), quote($mnem), quote($glyph);
}
print "\n";
}