--- ldirectord.orig	Thu Mar 29 17:20:12 2001
+++ ldirectord	Thu Mar 29 17:20:18 2001
@@ -922,7 +922,11 @@
 	use Net::SSLeay;
 	my ($v, $r) = @_;
 	$uri = $$v{request};
-	my ($page, $result, %headers) = &Net::SSLeay::get_https($$r{server}, $$r{port}, $uri);
+	my ($page, $result, %headers);
+        {
+          local $SIG{__WARN__}; 
+          ($page, $result, %headers)  = &Net::SSLeay::get_https($$r{server}, $$r{port}, $uri);
+        }
 	my $recstr = $$r{receive};
 	if (!($recstr =~ /.+/) || $page =~ /$recstr/) {
 		service_set($v, $r, "up");