/[Grep]/lib/Grep/Source/Feed.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Grep/Source/Feed.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 85 by dpavlin, Fri Feb 23 09:54:28 2007 UTC revision 86 by dpavlin, Fri Feb 23 21:16:44 2007 UTC
# Line 27  sub fetch { Line 27  sub fetch {
27          die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success );          die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success );
28          my $content = $r->content;          my $content = $r->content;
29    
30            $parent->save('feed.xml');
31    
32          die "No content returned from $uri\n" unless length( $content ) > 1;          die "No content returned from $uri\n" unless length( $content ) > 1;
33    
34          my $xml_feed = XML::Feed->parse( \$content )          my $xml_feed = XML::Feed->parse( \$content )
Legend:
Removed from v.85  
changed lines
  Added in v.86
  ViewVC Help
Powered by ViewVC 1.1.26