[livejournal] r17955: r74 botcheck warning fix

r74 botcheck warning fix

U   trunk/cgi-bin/BotCheck.pm

Modified: trunk/cgi-bin/BotCheck.pm
===================================================================
--- trunk/cgi-bin/BotCheck.pm	2010-12-17 05:05:58 UTC (rev 17954)
+++ trunk/cgi-bin/BotCheck.pm	2010-12-17 05:18:09 UTC (rev 17955)
@@ -122,7 +122,7 @@
 sub is_bot {
 	my ($class, $useragent) = @_;
 		
-	return $useragent =~ $crawler_agents;
+	return defined $useragent ? $useragent =~ $crawler_agents ne "" : 0;
 }
 
 1;