Changeset 14220 for lang/perl/App-Nakanobu

Timestamp:

06/18/08 19:11:27 (5 months ago)

Author:

tokuhirom

Message:

you can send two or more lines.

Files:

• lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu/Plugin/Component/IRCClient.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 => encode($self->charset, $channel), encode($self->charset, $text) );
+                for my $line (split /\n/, $text) {
+                    $irc->yield( $command => encode($self->charset, $channel), encode($self->charset, $line) );
+                }
             }
         );