--- Query-orig.pm	2008-08-19 21:55:30.000000000 -0400
+++ Query.pm	2008-08-19 21:56:46.000000000 -0400
@@ -177,6 +177,7 @@
 	}
 
 	$his =~ m/<br><table class=TBtable><caption>Hosting History<\/caption>(.*)<\/table><br>/;	
+    if ( defined($1) ) {
 	my @his = split(/<\/td><\/tr>/,$1);
 	my $n = 0;
 	foreach $row (@his){
@@ -185,6 +186,7 @@
 			$res{ "history_$n" } = "$3:$4.$5.$6.$7:$8:$9:$10";
 		}
 	}
+    }
 
 	return %res;
 }