fb755bb
--- test.pl~	2003-08-17 10:27:54.000000000 +0300
fb755bb
+++ test.pl	2004-10-12 00:19:42.761693459 +0300
fb755bb
@@ -187,7 +187,7 @@
fb755bb
 $ENV{RND_SEED} = '1234567890123456789012345678901234567890';
fb755bb
 print &test('14 www.bacus.pt',
fb755bb
 	    &Net::SSLeay::sslcat("www.bacus.pt", 443,
fb755bb
-				 "get\n\r\n\r") =~ /<TITLE>/);
fb755bb
+				 "get\n\r\n\r") =~ /<TITLE>/i);
fb755bb
 
fb755bb
 sub test_site ($$) {
fb755bb
     my ($test_nro, $site) = @_;