--- trunk/Estraier.pm	2006/01/05 22:16:21	37
+++ trunk/Estraier.pm	2006/01/05 22:27:03	38
@@ -784,7 +784,7 @@
 
 	my $status = -1;
 
-	warn $url;
+	warn "## $url\n";
 
 	$url = new URI($url);
 	if (
@@ -853,13 +853,15 @@
 	$self->{status} = $res_status;
 
 	# skip rest of headers
-	do {
+	$line = <$sock>;
+	while ($line) {
 		$line = <$sock>;
-		chomp($line);
-	} until ($line eq '');
+		$line =~ s/[\r\n]+$//;
+		warn "## ", $line || 'NULL', " ##\n";
+	};
 
 	# read body
-	my $len = 0;
+	$len = 0;
 	do {
 		$len = read($sock, my $buf, 8192);
 		$$resbody .= $buf if ($resbody);