Changeset 117

Show
Ignore:
Timestamp:
07/20/05 19:27:11 (3 years ago)
Author:
ogawa
Message:

Fix bugs for undefined array references.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • tagwire/trunk/tagwire.pl

    r107 r117  
    1515use vars qw($VERSION); 
    1616 
    17 $VERSION = '0.24'; 
     17$VERSION = '0.25'; 
    1818 
    1919# DEBUG 
    …… 
    8383        foreach (@{$eindex{$eid}->{tags}}) { 
    8484            push @{$tindex{$_}->{eids}}, $eid; 
    85             $tindex{$_}->{ts} = $ts if $tindex{$_}->{ts} < $ts; 
     85            $tindex{$_}->{ts} = $ts if !exists $tindex{$_}->{ts} || $tindex{$_}->{ts} < $ts; 
    8686        } 
    8787    } 
    …… 
    204204        foreach (@{$eindex{$eid}->{tags}}) { 
    205205            push @{$tindex{$_}->{eids}}, $eid; 
    206             $tindex{$_}->{ts} = $ts if $tindex{$_}->{ts} < $ts; 
     206            $tindex{$_}->{ts} = $ts if !exists $tindex{$_}->{ts} || $tindex{$_}->{ts} < $ts; 
    207207        } 
    208208    } 
    …… 
    240240    } else { 
    241241        foreach (keys %tindex) { 
    242             $tags{lc $_} += scalar @{$tindex{$_}->{eids}}; 
    243             $ts{lc $_} = $tindex{$_}->{ts} if $ts{lc $_} < $tindex{$_}->{ts}; 
     242            my $t = lc $_; 
     243            $tags{$t} += scalar @{$tindex{$_}->{eids}}; 
     244            $ts{$t} = $tindex{$_}->{ts} if !exists $ts{$t} || $ts{$t} < $tindex{$_}->{ts}; 
    244245        } 
    245246    } 
    …… 
    612613        $args->{case_sensitive} : 1; 
    613614 
     615    my @entries; 
    614616    my @tags = split_args($args->{search}, $delimiter, $case_sensitive) 
    615         or return \(); 
     617        or return \@entries; 
    616618 
    617619    my $r = MT::Request->instance; 
    …… 
    619621 
    620622    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id) 
    621         or return \(); 
     623        or return \@entries; 
    622624    my %tindex = %{$data->{tindex}}; 
    623625    my %eindex = %{$data->{eindex}}; 
    …… 
    640642    my $count = scalar @tags; 
    641643    my @eids = grep { $match{$_} == $count } keys %match 
    642         or return \(); 
     644        or return \@entries; 
    643645    @eids = $sort_order eq 'descend' ? 
    644646        sort { $eindex{$b}->{created_on} <=> $eindex{$a}->{created_on} } @eids : 
    645647        sort { $eindex{$a}->{created_on} <=> $eindex{$b}->{created_on} } @eids; 
    646648    require MT::Entry; 
    647     my @entries; 
    648649    map { push @entries, MT::Entry->load($_) } @eids; 
    649650    \@entries;