charset: support partial cp437 glyph replacement

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 2b224fe58b99d17651d02875d177f97bd6a0ffc3..da6fc3f78ca9f415b32d7b4c1019a9a6009069a4 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -4,7 +4,7 @@ use List::Util qw( pairs );
 sub disptap {
        return map {
                !m/\A(-?)(\d)(\d)/ ? $_ :
-               $1.sprintf('%s<br>%s',
+               $1.join(' ',
                        '·' x $2, '·' x $3,
                );
        } @_;