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