git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: mkdigraphlist: avoid undefinedness warnings
[sheet.git]
/
tools
/
mkdigraphlist
diff --git
a/tools/mkdigraphlist
b/tools/mkdigraphlist
index ecd825f0d653cc8c7fd32bd90bfc45ee970f60b5..500abbb0f6438fa7748f94808eb25fce5f75fbb6 100755
(executable)
--- a/
tools/mkdigraphlist
+++ b/
tools/mkdigraphlist
@@
-33,11
+33,11
@@
printf '(map {$_=>0} qw{%s}),'."\n", join(' ',
printf "q{%s}=>[%s],\n", s/(?=[\\}])/\\/gr, join(',',
ord $di->{$_}, # original code point
map {"'$_'"}
printf "q{%s}=>[%s],\n", s/(?=[\\}])/\\/gr, join(',',
ord $di->{$_}, # original code point
map {"'$_'"}
- $uninfo->{ $di->{$_} }->[1], # name
+ $uninfo->{ $di->{$_} }->[1]
// ''
, # name
$vim->{$_}
? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim-only
: 'u-prop ex', # neither
$vim->{$_}
? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim-only
: 'u-prop ex', # neither
-
$uninfo->{ $di->{$_} }->[0]
=~ s/ u-di| u-prop| ex//gr, # class
+
($uninfo->{ $di->{$_} }->[0] // '')
=~ s/ u-di| u-prop| ex//gr, # class
$uninfo->{ $di->{$_} }->[4] // (), # string
) for sort keys %{$di};
print "}\n";
$uninfo->{ $di->{$_} }->[4] // (), # string
) for sort keys %{$di};
print "}\n";