Changeset 818

Timestamp:

10/29/07 12:01:28 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: oops. decode missing.

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm (modified) (1 diff)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm

@@ -214 +214 @@
     my $poe = sweet_args;
 
-    my $raw = $poe->args->[1];
+    DEBUG "SET TOPIC RAW";
+
+    my $raw = decode( $poe->heap->{config}->{irc}->{incode}, $poe->args->[1] );
     my ( $channel, $topic ) = split( / :/, $raw, 2 );