rfc1345 digraphs include generator

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 9a20f580dd8d405c30d8076618765fb78405c5ac..9f0b370b03fc5517199bae77a156550b4ce7443e 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -69,11 +69,13 @@ for my $c1 (@chars) {
                        next;
                }
                my $chr = $di->{$mnem};
                        next;
                }
                my $chr = $di->{$mnem};

+               my $glyph = chr $chr;
+               utf8::upgrade($glyph);  # prevent latin1 output

 
                my @class = 'any';
 
                printf '<td class="%s" title="%s">%s',
 
                my @class = 'any';
 
                printf '<td class="%s" title="%s">%s',

-                       join(' ', @class), quote($mnem), quote(chr $chr);
+                       join(' ', @class), quote($mnem), quote($glyph);

        }
        print "\n";
 }
        }
        print "\n";
 }