X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bbd4d489ebb73ed0fbc55eac123614a4774bb937..924adfda53e8d519ed218d37d1ec139a1565a8c0:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 7fabb6e..2b224fe 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -1,4 +1,5 @@
use utf8;
+use List::Util qw( pairs );
sub disptap {
return map {
@@ -182,7 +183,7 @@ my $U = 0; # optional unicode alternatives
'Flag semaphore' => [
map {
local $_ = $_;
- s/[1-4]\K(?=[4-9])/Â /;
+ s/[1-4]\K(?=[4-9])/Â /; # prevent unwanted vertical crossing
tr/1-9/ââââââââ/;
s{(\S)(?=.)}{$1};
$_
@@ -197,7 +198,7 @@ my $U = 0; # optional unicode alternatives
my ($r, $pr, $pl) = split //, $_;
/^\D$/ ? $_ : sprintf(
join('',
- '