Changeset 2060

Show
Ignore:
Timestamp:
01/20/09 09:33:07
Author:
miyagawa
Message:

apply RT 42542

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/Makefile.PL

    r2030 r2060  
    3636requires('Net::DNS'); 
    3737 
    38 requires('XML::Feed', 0.12); 
     38requires('XML::Feed', 0.41); 
    3939requires('XML::LibXML'); 
    4040requires('XML::Atom', 0.23); 
  • trunk/plagger/lib/Plagger/Plugin/Aggregator/Simple.pm

    r2047 r2060  
    110110        $entry->author(_u($e->author)); 
    111111 
    112         my $category = $e->category; 
    113            $category = [ $category ] if $category && (!ref($category) || ref($category) ne 'ARRAY'); 
    114         $entry->tags([ map _u($_), @$category ]) if $category; 
     112        my @category = $e->category; 
     113        $entry->tags([ map _u($_), @category ]) if @category; 
    115114 
    116115        # XXX XML::Feed doesn't support extracting atom:category yet 
  • trunk/plagger/lib/Plagger/Plugin/Filter/GuessLanguage.pm

    r1741 r2060  
    7070sub guess_language { 
    7171    my ($self, $text) = @_; 
     72 
     73    return unless defined $text && length $text; 
    7274 
    7375    my $code; 
  • trunk/plagger/t/plugins/Filter-HTMLScrubber/base.t

    r1741 r2060  
    4343--- expected 
    4444unlike $warnings, qr/Scrubbing/; 
    45  
    46  
  • trunk/plagger/t/plugins/Filter-POPFile/base.t

    r1490 r2060  
    11use strict; 
    22use t::TestPlagger; 
    3 use XMLRPC::Lite; 
     3 
     4eval { require XMLRPC::Lite; XMLRPC::Lite->import() }; 
     5plan skip_all => "XMLRPC::Lite is not installed." if $@; 
    46 
    57my $server = 'localhost:8081';