Changeset 970

Timestamp:

10/31/07 22:23:05 (13 months ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: reconnect, connect, snotice is now in the *server* pseudo channel.

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm (modified) (2 diffs)

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

@@ -349 +349 @@
         decode( 'utf8', '*server*' ),
         undef,
-        $message,
+        decode( 'utf8', $message),
         'snotice',
     );
@@ -370 +370 @@
 }
 
-# FIXME: I want more cool implement
 sub _get_args {
     my $poe = shift;
 
-    my @ret;
-    for my $elem (@{$poe->args}) {
-        if ( ref $elem && ref $elem eq 'ARRAY') {
-            push @ret, [map { decode($poe->heap->{config}->{irc}->{incode}, $_) } @$elem];
-        } else {
-            push @ret, decode($poe->heap->{config}->{irc}->{incode}, $elem);
-        }
-    }
-    return @ret;
+    return map { decode($poe->heap->{config}->{irc}->{incode}, $_) } @{ $poe->args };
 }