X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=blootbot%2Fsrc%2FModules%2FHTTPDtype.pl;h=5906077f64d395c6117e6b3d4c81f0123925d2ae;hb=bf965fe525a92b2670e68dfff6d51da8cd98a692;hp=c91ecd01a87416ee1a01540935644d25c5c557ae;hpb=098a4a5091cee7b33b8fd0f8d8c9b93abe702729;p=infobot.git

diff --git a/blootbot/src/Modules/HTTPDtype.pl b/blootbot/src/Modules/HTTPDtype.pl
index c91ecd0..5906077 100644
--- a/blootbot/src/Modules/HTTPDtype.pl
+++ b/blootbot/src/Modules/HTTPDtype.pl
@@ -21,13 +21,13 @@ sub HTTPDtype {
 	$s->write_request(HEAD => "/");
 
 	my $sel = IO::Select->new($s);
-	$line = "Header timeout" unless $sel->can_read(10);
+	$line = 'Header timeout' unless $sel->can_read(10);
 	($code, $mess, %h) = $s->read_response_headers;
 
 	$line = (length($h{Server}) > 0) ? $h{Server} :
 	  "Couldn't fetch headers from $HOST";
 
-    &::performStrictReply($line||"Unknown Error Condition");
+    &::performStrictReply($line||'Unknown Error Condition');
 }
 
 1;