--- deliantra/Deliantra-Client/DC/Item.pm 2007/07/17 22:08:56 1.6 +++ deliantra/Deliantra-Client/DC/Item.pm 2007/08/14 12:02:14 1.7 @@ -2,6 +2,7 @@ use strict; use utf8; +use Encode; use Crossfire::Protocol::Constants; @@ -116,7 +117,7 @@ &::open_string_query ("Text to inscribe", sub { my ($entry, $txt) = @_; $::CONN->send ("mark ". pack "N", $self->{tag}); - $::CONN->send ("command use_skill inscription $txt"); + $::CONN->send_utf8 ("command use_skill inscription $txt"); }); } ], @@ -125,7 +126,7 @@ &::open_string_query ("Rename item to:", sub { my ($entry, $txt) = @_; $::CONN->send ("mark ". pack "N", $self->{tag}); - $::CONN->send ("command rename to <$txt>"); + $::CONN->send_utf8 ("command rename to <$txt>"); }, $self->{name}, "If you input no name or erase the current custom name, the custom name will be unset"); }