Changeset 1640

Show
Ignore:
Timestamp:
09/02/06 02:11:09
Author:
miyagawa
Message:

UserAgent->mirror(URI, $path) now works.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/UserAgent.pm

    r1492 r1640  
    77use Plagger::FeedParser; 
    88use URI::Fetch 0.06; 
     9use Scalar::Util qw(blessed); 
    910 
    1011sub new { 
    …… 
    5758    my($self, $request, $file) = @_; 
    5859 
    59     unless (ref($request)) { 
     60    unless (blessed($request) && $request->isa('HTTP::Request') ) { 
    6061        return $self->SUPER::mirror($request, $file); 
    6162    }