Permalink
Browse files

Merge remote-tracking branch 'origin/master'

  • Loading branch information...
2 parents e50dc67 + bdd254c commit 94f6a538d547f6fe914d265316838727c84190d9 @gbarr gbarr committed Sep 3, 2011
Showing with 4 additions and 1 deletion.
  1. +4 −1 lib/Net/LDAP.pm
View
@@ -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 {

0 comments on commit 94f6a53

Please sign in to comment.