[Bps-public-commit] r19895 - in Net-Google-Code/trunk: lib/Net/Google/Code/Issue

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu Jun 4 09:42:52 EDT 2009


Author: sunnavy
Date: Thu Jun  4 09:42:52 2009
New Revision: 19895

Modified:
   Net-Google-Code/trunk/Makefile.PL
   Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Search.pm

Log:
too many deps for XML::Feed, migrate to XML::Atom

Modified: Net-Google-Code/trunk/Makefile.PL
==============================================================================
--- Net-Google-Code/trunk/Makefile.PL	(original)
+++ Net-Google-Code/trunk/Makefile.PL	Thu Jun  4 09:42:52 2009
@@ -16,7 +16,7 @@
 requires 'MIME::Types';
 requires 'File::MMagic';
 requires 'JSON';
-requires 'XML::Feed';
+requires 'XML::Atom';
 
 recursive_author_tests('xt/');
 

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Search.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Search.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Search.pm	Thu Jun  4 09:42:52 2009
@@ -35,9 +35,9 @@
 
     my @results;
 
-    require XML::Feed;
+    require XML::Atom::Feed;
     my $content = $self->fetch( $self->base_feeds_url . 'issueupdates/basic' );
-    my $feed    = XML::Feed->parse( \$content ) or die XML::Feed->errstr;
+    my $feed    = XML::Atom::Feed->new( \$content ) or die 'parse feeds failed';
     my @entries = $feed->entries;
     if (@entries) {
         my $min_updated =



More information about the Bps-public-commit mailing list