Merge remote-tracking branch 'origin/master'

perl-ldap · Sep 3, 2011 · 94f6a53 · 94f6a53
2 parents e50dc67 + bdd254c
commit 94f6a53
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Net/LDAP.pm b/lib/Net/LDAP.pm
@@ -385,7 +385,10 @@ sub bind {
       # If we're talking to a round-robin, the canonical name of
       # the host we are talking to might not match the name we
       # requested
-      my $connected_name = $ldap->{net_ldap_socket}->peerhost;
+      my $connected_name;
+      if ($ldap->{net_ldap_socket}->can('peerhost')) {
+        $connected_name = $ldap->{net_ldap_socket}->peerhost;
+      }
       $connected_name ||= $ldap->{net_ldap_host};
 
       $sasl_conn = eval {