This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Under -annotate use dotted circle for combining marks
[perl5.git] / lib / unicore / mktables
index a746b77..8a4100c 100644 (file)
@@ -8902,13 +8902,13 @@ sub trace { return main::trace(@_) if main::DEBUG && $to_trace }
 package main;
 
     sub display_chr {
-        # Converts an ordinal character value to a displayable string, using a
-        # NBSP to hold combining characters.
+        # Converts an ordinal printable character value to a displayable
+        # string, using a dotted circle to hold combining characters.
 
         my $ord = shift;
         my $chr = chr $ord;
         return $chr if $ccc->table(0)->contains($ord);
-        return chr(utf8::unicode_to_native(0xA0)) . $chr;
+        return "\x{25CC}$chr";
     }
 
 sub join_lines($) {