--- trunk/Estraier.pm	2006/01/09 15:28:24	74
+++ trunk/Estraier.pm	2006/01/16 21:19:44	76
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.03';
+our $VERSION = '0.04_1';
 
 =head1 NAME
 
@@ -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});