X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7e678eaffb1a57d300e8aa77078d93ab481f8006..61b2b5fe396c3f1c47a926cd50eb50d60415d415:/tools/mkdigraphs-shiar

diff --git a/tools/mkdigraphs-shiar b/tools/mkdigraphs-shiar
index 4f2b75a..05399b0 100755
--- a/tools/mkdigraphs-shiar
+++ b/tools/mkdigraphs-shiar
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use open IN => ':utf8', ':std';
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 
 my $di = do "data/digraphs-rfc.inc.pl"
 	or warn "official digraphs not included for comparison: ", $@ // $!;
@@ -14,8 +14,8 @@ say '+{';
 for (readline) {
 	my ($mnem, $chr) = m{^([!"%'-Z_a-z]{2}) (.)} or next;
 	warn("$mnem already defined"), next if defined $di->{$mnem};
-	my $chrnum = ord $chr;
-	say "q{$1} => $chrnum,";
+	my $chrstr = sprintf '"\x{%x}"', ord $chr;
+	say "q{$mnem} => $chrstr,";
 }
 say '}';