Changeset 971

Timestamp:

10/31/07 22:23:07 (15 months ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: smart handling arguments.

Files:

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

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

@@ -105 +105 @@
     $channel =~ s/ .*//;
 
+    my $canon_channel = canon_name($channel);
+
     my $canon_channel = normalize_channel_name($channel);
 
@@ -131 +133 @@
     # chop off after the gap (bug workaround of POE::Filter::IRC)
     $channel =~ s/ .*//;
+
+    my $canon_channel = canon_name($channel);
 
     my $canon_channel = normalize_channel_name($channel);
@@ -370 +374 @@
 }
 
+# FIXME: I want more cool implement
 sub _get_args {
     my $poe = shift;
 
-    return map { decode($poe->heap->{config}->{irc}->{incode}, $_) } @{ $poe->args };
+    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;
 }