Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 18:25:42 -04:00
Code Issues Releases Wiki Activity

Also gentrify control characters

Browse source
This commit is contained in:
Ryan Voots 2017-10-30 18:50:53 -04:00
parent fa8607d29f
commit 6e40161b6b
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
plugins/unicode.pm
View file

@ -34,6 +34,7 @@ sub unip {
} }
my $comb = ""; my $comb = "";
$comb = " " if $x->{name} =~ /^COMBINING /; $comb = " " if $x->{name} =~ /^COMBINING /;
$chr = chr(0x2400 + ord($chr)) if ord($chr) < 0x20;
push @out, "U+$x->{code} ($utf8): $x->{name} [$comb$chr]"; push @out, "U+$x->{code} ($utf8): $x->{name} [$comb$chr]";
} }