X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/800cd11bec46c84a8187b9180f0a7684e7be7d1c..885337ac8f6df8b7971248d0c31eed25ab5b8123:/digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 05d9241..5b5f414 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -79,7 +79,7 @@ for my $c1group (@chars) {
 			my ($codepoint, $name, $support, $script, $string) =
 				@{ $di->{key}->{$mnem} };
 
-			my $glyph = $string || chr $codepoint;
+			my $glyph = $string || !!$codepoint && chr $codepoint;
 			utf8::upgrade($glyph);  # prevent latin1 output
 			my $desc = $mnem . ($name && " ($name)");
 			my @class = ('X', grep {$_} $script);