Make the pointed corrections

1 files changed, 3 insertions, 13 deletions

diff --git a/scripts/unicode.pl b/scripts/unicode.pl
index 5970de4..5e883a1 100644
--- a/scripts/unicode.pl
+++ b/scripts/unicode.pl
@@ -148,13 +148,6 @@ command_bind unicode => sub {
   }
 };
 
-sub hex_str {
-    my $str = shift;
-    use bytes;
-    my @raw_bytes = unpack('C*', $str);
-    return join('', map { '\\x'.sprintf("%02x", $_) } @raw_bytes);
-}
-
 sub print_info {
   my($character, $extra) = @_;
   my $info = charinfo $character;
@@ -173,7 +166,7 @@ sub print_info {
     for(qw(decimal digit numeric upper lower title)) {
       $extra{$_} = $info->{$_} if $info->{$_};
     }
-    $extra{"perl"} = hex_str(chr(hex $info->{code}));
+    $extra{"utf-8 (hex)"} = join "", map sprintf("\\x%02x", ord), split //, encode_utf8 chr(hex $info->{code});
     p " " x (7 + length $info->{code}), join(", ", map { "$_=$extra{$_}" } sort keys %extra);
   }
 }
@@ -214,9 +207,6 @@ sub pipe_input {
 }
 
 command_bind charblocks => sub {
-  my $charblocks_hr = charblocks();
-  my @blocks = sort keys %{$charblocks_hr};
-  foreach(@blocks) {
-    Irssi::print($_,MSGLEVEL_CLIENTCRAP);
-  }
+  my @blocks = sort keys %{charblocks()};
+  print for @blocks;
 }