--- detect.pm.orig	2001-04-12 06:04:57.000000000 +0900
+++ detect.pm	2006-01-07 22:39:37.000000000 +0900
@@ -565,7 +565,7 @@
 				}elsif($req[0] =~ /302/){
 print "  ".$req[0]."\012";
 					foreach my $q (@req){
-						if($q =~ /Location: (.*)(\015|\012)/i){
+						if($q =~ /^Location: (.*)(\015|\012)/i){
 							$target = $1;
 							$modtime = "";
 print "    302 moved. location: $target retry\012";