Changeset 14219 for lang/perl/App-Nakanobu

Timestamp:

06/18/08 18:52:33 (5 months ago)

Author:

tokuhirom

Message:

utf8 safe.

Location:

lang/perl/App-Nakanobu/trunk/lib/App

Files:

• Nakanobu.pm (modified) (1 diff)
• Nakanobu/Plugin/Component/IRCClient.pm (modified) (1 diff)

lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu.pm

@@ -26 +26 @@
     default => sub {
         my $self = shift;
-        YAML::LoadFile( $self->conffile )
+        my $fh =  $self->conffile->open('<:utf8') or die $!;
+        my $dat = YAML::Load( do { local $/; <$fh> } );
+        $fh->close;
+        $dat;
     },
 );

lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu/Plugin/Component/IRCClient.pm

@@ -134 +134 @@
     $heap->{irc}->yield( charset => $heap->{plugin}->charset );
 
-    foreach ( @{ $heap->{plugin}->channels } ) {
-        msg "joining channel $_";
-        $heap->{irc}->yield( 'join' => $_ );
+    for my $channel ( @{ $heap->{plugin}->channels } ) {
+        msg "joining channel $channel";
+        $heap->{irc}->yield( 'join' => encode( $heap->{plugin}->charset, $channel ) );
     }
 }