--- trunk/Estraier.pm	2006/01/09 15:22:05	71
+++ trunk/Estraier.pm	2006/01/16 21:34:14	77
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.03_1';
+our $VERSION = '0.04_1';
 
 =head1 NAME
 
@@ -1418,7 +1418,7 @@
 
 	$req->headers->header( 'Host' => $url->host . ":" . $url->port );
 	$req->headers->header( 'Connection', 'close' );
-	$req->headers->header( 'Authorization', 'Basic ' . $self->{auth} );
+	$req->headers->header( 'Authorization', 'Basic ' . $self->{auth} ) if ($self->{auth});
 	$req->content_type( $content_type );
 
 	warn $req->headers->as_string,"\n" if ($self->{debug});
@@ -1432,10 +1432,10 @@
 
 	warn "## response status: ",$res->status_line,"\n" if ($self->{debug});
 
-	return -1 if (! $res->is_success);
-
 	($self->{status}, $self->{status_message}) = split(/\s+/, $res->status_line, 2);
 
+	return -1 if (! $res->is_success);
+
 	$$resbody .= $res->content;
 
 	warn "## response body:\n$$resbody\n" if ($resbody && $self->{debug});