/[Search-Estraier]/trunk/Estraier.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 /trunk/Estraier.pm

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

revision 75 by dpavlin, Mon Jan 9 15:28:24 2006 UTC revision 76 by dpavlin, Mon Jan 16 21:19:44 2006 UTC
# Line 4  use 5.008; Line 4  use 5.008;
4  use strict;  use strict;
5  use warnings;  use warnings;
6    
7  our $VERSION = '0.03';  our $VERSION = '0.04_1';
8    
9  =head1 NAME  =head1 NAME
10    
# Line 1432  sub shuttle_url { Line 1432  sub shuttle_url {
1432    
1433          warn "## response status: ",$res->status_line,"\n" if ($self->{debug});          warn "## response status: ",$res->status_line,"\n" if ($self->{debug});
1434    
         return -1 if (! $res->is_success);  
   
1435          ($self->{status}, $self->{status_message}) = split(/\s+/, $res->status_line, 2);          ($self->{status}, $self->{status_message}) = split(/\s+/, $res->status_line, 2);
1436    
1437            return -1 if (! $res->is_success);
1438    
1439          $$resbody .= $res->content;          $$resbody .= $res->content;
1440    
1441          warn "## response body:\n$$resbody\n" if ($resbody && $self->{debug});          warn "## response body:\n$$resbody\n" if ($resbody && $self->{debug});
Legend:
Removed from v.75  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.26