Changeset 14204 for lang/perl/App-Nakanobu

Timestamp:

06/18/08 16:35:04 (5 months ago)

Author:

tokuhirom

Message:

utf8 friendly

Location:

lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu/Plugin/Component

Files:

• IRCClient.pm (modified) (1 diff)
• JSONRPC/HTTP.pm (modified) (1 diff)

lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu/Plugin/Component/IRCClient.pm

@@ -86 +86 @@
             $command => $self => sub {
                 my ($self, $context, $channel, $text) = @_;
-                $irc->yield( $command => $channel, $text );
+                $irc->yield( $command => encode($self->charset, $channel), encode($self->charset, $text) );
             }
         );

lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu/Plugin/Component/JSONRPC/HTTP.pm

@@ -21 +21 @@
 );
 
-my $marshal = JSON::RPC::Common::Marshal::HTTP->new;
+my $marshal = JSON::RPC::Common::Marshal::HTTP->new(
+    json => JSON->new->utf8(1),
+);
 
 my $method_map = {