Changeset 14213 for lang/perl/App-Nakanobu

Timestamp:

06/18/08 17:16:55 (5 months ago)

Author:

tokuhirom

Message:

bug fixed.

Files:

• lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu/Plugin/Component/IRCClient.pm (modified) (2 diffs)

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

@@ -13 +13 @@
 
 has nick => (
-    is       => 'ro',
+    is       => 'rw',
     isa      => 'Str',
     required => 1,
@@ -162 +162 @@
     my $plugin = $heap->{plugin};
     if ( $plugin->nick !~ /\d$/ ) {
-        $plugin->nick .= 0;
+        $plugin->nick( $plugin->nick . 0 );
     }
     else {