@@ -35,7 +35,7 @@ requires('Date::Parse'); requires('MIME::Types', 1.16); requires('Net::DNS'); -requires('XML::Feed', 0.12); +requires('XML::Feed', 0.41); requires('XML::LibXML'); requires('XML::Atom', 0.23); requires('XML::RSS::LibXML', 0.3002); Makefile.PL @@ -109,9 +109,8 @@ sub handle_feed { $entry->title(_u($e->title)); $entry->author(_u($e->author)); - my $category = $e->category; - $category = [ $category ] if $category && (!ref($category) || ref($category) ne 'ARRAY'); - $entry->tags([ map _u($_), @$category ]) if $category; + my @category = $e->category; + $entry->tags([ map _u($_), @category ]) if @category; # XXX XML::Feed doesn't support extracting atom:category yet if ($remote->format eq 'Atom' && $e->{entry}->can('categories')) { lib/Plagger/Plugin/Aggregator/Simple.pm @@ -70,6 +70,8 @@ sub guess { sub guess_language { my ($self, $text) = @_; + return unless defined $text && length $text; + my $code; # xxx: just a quick hack. there may be a better way. lib/Plagger/Plugin/Filter/GuessLanguage.pm @@ -42,5 +42,3 @@ plugins: - module: Filter::HTMLScrubber --- expected unlike $warnings, qr/Scrubbing/; - - t/plugins/Filter-HTMLScrubber/base.t @@ -1,6 +1,8 @@ use strict; use t::TestPlagger; -use XMLRPC::Lite; + +eval { require XMLRPC::Lite; XMLRPC::Lite->import() }; +plan skip_all => "XMLRPC::Lite is not installed." if $@; my $server = 'localhost:8081'; t/plugins/Filter-POPFile/base.t 01e368f26f359ddb2ea3061dd535a0a6d0a8d23a Tatsuhiko Miyagawa miyagawa@bulknews.net http://github.com/miyagawa/plagger/commit/f9573354e2cee8aedba99a7bcffd03e3ddd557f4 f9573354e2cee8aedba99a7bcffd03e3ddd557f4 2009-01-19T16:33:07-08:00 2009-01-19T16:33:07-08:00 apply RT 42542 2ba1e4b997816fb4de90b88319b99b900b27afd3 Tatsuhiko Miyagawa miyagawa@bulknews.net