--- IO-Socket-SSL-orig.pm	2007-03-05 15:34:15.000000000 +1000
+++ IO-Socket-SSL.pm	2007-03-05 15:40:30.000000000 +1000
@@ -119,6 +119,7 @@
 	 'SSL_version'   => 'sslv23',
 	 'SSL_verify_mode' => Net::SSLeay::VERIFY_NONE(),
 	 'SSL_verify_callback' => 0,
+	 'SSL_verify_depth' => 0
     );
      
     # SSL_key_file and SSL_cert_file will only be set in defaults if 
@@ -829,7 +830,7 @@
     	|SSL_MODE_ENABLE_PARTIAL_WRITE);
 
 
-    my ($verify_mode, $verify_cb) = @{$arg_hash}{'SSL_verify_mode','SSL_verify_callback'};
+    my ($verify_mode, $verify_cb, $verify_depth) = @{$arg_hash}{'SSL_verify_mode','SSL_verify_callback','SSL_verify_depth'};
     unless ($verify_mode == Net::SSLeay::VERIFY_NONE())
     {
 	&Net::SSLeay::CTX_load_verify_locations
@@ -912,6 +913,7 @@
 	};
 
     Net::SSLeay::CTX_set_verify($ctx, $verify_mode, $verify_callback);
+		Net::SSLeay::CTX_set_verify_depth($ctx, $verify_depth);
 
     $ctx_object = { context => $ctx };
     if ($arg_hash->{'SSL_session_cache_size'}) {