Changeset 2167

Show
Ignore:
Timestamp:
02/15/07 10:14:48
Author:
miyagawa
Message:

fixed UUV

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/cpan-ratings.pl

    r2166 r2167  
    2121 
    2222    for my $item (@{$rss->items}) { 
    23         my $star = ($item->{description} =~ /Rating: (\d) star/)[0]
     23        my $star = ($item->{description} =~ /Rating: (\d) star/)[0] || 0
    2424        print( ("*") x $star, (" ") x (5 - $star), " by ", $item->{dc}->{creator}, "\n" ); 
    2525    }