Changeset 14216 for lang/perl/App-Nakanobu

Timestamp:

06/18/08 18:46:13 (5 months ago)

Author:

tokuhirom

Message:

refactoring

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

@@ -131 +131 @@
 sub bot_connected {
     my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
+
+    $heap->{irc}->yield( charset => $heap->{plugin}->charset );
+
     foreach ( @{ $heap->{plugin}->channels } ) {
         msg "joining channel $_";
         $heap->{irc}->yield( 'join' => $_ );
-        if ( my $charset = $heap->{plugin}->charset ) {
-            $heap->{irc}->yield( charset => $charset );
-        }
     }
 }