From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 22 Mar 2017 22:55:22 +0000 (+0100)
Subject: digraphs: exclude backslash in proposals escape
X-Git-Tag: v1.9~6
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/fb54e941b600cd7679d413c775218fe968204f79

digraphs: exclude backslash in proposals escape

Fixes parsing of escapes such as "\8203" introduced in v1.6-199-g5eb5e3456f
(2015-03-29) [digraphs: allow proposals by decimal code point escape].
---

diff --git a/tools/mkdigraphs-shiar b/tools/mkdigraphs-shiar
index 443de5d..b1c0d5a 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.02';
+our $VERSION = '1.03';
 
 my $di = do "data/digraphs-rfc.inc.pl"
 	or warn "official digraphs not included for comparison: ", $@ // $!;
@@ -12,7 +12,7 @@ my $di = do "data/digraphs-rfc.inc.pl"
 say "# automatically generated by $0";
 say '+{';
 for (readline) {
-	my ($mnem, $cp, $chr) = m{^([!"%'-Z_a-z]{2}) (?:(\\\d+)|(.))} or next;
+	my ($mnem, $cp, $chr) = m{^([!"%'-Z_a-z]{2}) (?:\\(\d+)|(.))} or next;
 	warn("$mnem already defined"), next if defined $di->{$mnem};
 	my $chrstr = sprintf '"\x{%x}"', $cp // ord $chr;
 	say "q{$mnem} => $chrstr,";