Changeset 5888 for lang/perl/Nowa-Nanishiteru

Timestamp:

01/30/08 19:10:00 (5 years ago)

Author:

nipotan

Message:

lang/perl/Nowa-Nanishiteru: treated for update of javascript

Files:

• lang/perl/Nowa-Nanishiteru/trunk/lib/Nowa/Nanishiteru.pm (modified) (1 diff)

lang/perl/Nowa-Nanishiteru/trunk/lib/Nowa/Nanishiteru.pm

@@ -32 +32 @@
     $self->_home;
     my($rkey) =
-        $self->{mech}->content =~ m{hitokoto\.init\(\s*"([a-z\d]+)"\s*\)}i;
+        $self->{mech}->content =~ m{hitokoto\.init\(\s*"([a-z\d]+)"}i;
     croak "Cannot find rkey" unless $rkey;
     my $uri = URI->new_abs('/internal_api/status_message/', NOWA_HOME);