Changeset 572

Show
Ignore:
Timestamp:
04/11/06 15:39:47
Author:
miyagawa
Message:

use URI::Fetch 0.06. Fixes #168

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/lib/Plagger/Plugin/Aggregator/Simple.pm

    r538 r572  
    2929    my $content_type = eval { $res->content_type } || 
    3030                       $res->http_response->content_type || 
    31                        "text/xml"; # xxx! 
     31                       "text/xml"; 
    3232 
    3333    if ( $Feed::Find::IsFeed{$content_type} ) { 
  • trunk/plagger/lib/Plagger/UserAgent.pm

    r320 r572  
    33use base qw( LWP::UserAgent ); 
    44 
    5 use URI::Fetch 0.05
     5use URI::Fetch 0.06
    66 
    77sub new { 
     
    2323} 
    2424 
    25 # xxx 
    26 *URI::Fetch::Response::is_success = sub { $_[0]->http_response->is_success }; 
    27 *URI::Fetch::Response::is_error   = sub { $_[0]->http_response->is_error }; 
    28  
    29251; 
    3026