Show
Ignore:
Timestamp:
11/20/07 16:01:02 (6 years ago)
Author:
mattn
Message:

lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha/Koto.pm,
lang/perl/Net-Kotonoha/trunk/Changes:

fixed bug. Koto::yesman or Koto::noman did not work.

Location:
lang/perl/Net-Kotonoha/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Net-Kotonoha/trunk/Changes

    r1842 r1843  
    11Revision history for Perl extension Net::Kotonoha 
     2 
     30.05  Thu Nov 20 15:35:11 2007 
     4        - fixed bug. Koto::yesman or Koto::noman did not work. 
    25 
    360.04  Thu Nov 20 15:26:33 2007 
    47        - changed that return array instead of list. 
     8        - this version is broken!. 
    59 
    6100.03  Thu Nov 20 14:29:23 2007 

  • lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha/Koto.pm

    r1842 r1843  
    128128        my @found; 
    129129        my $myself = $self->{kotonoha}->{user}; 
    130         @found = grep $_->{user} eq $myself, $self->yesman; 
    131         @found = grep $_->{user} eq $myself, $self->noman unless @found; 
     130        @found = grep $_->{user} eq $myself, @{$self->yesman}; 
     131        @found = grep $_->{user} eq $myself, @{@$self->noman} unless @found; 
    132132        @found ? return shift @found : croak "couldn't post answer"; 
    133133    }