From: Graham B. <gb...@us...> - 2002-02-18 15:58:30
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory usw-pr-cvs1:/tmp/cvs-serv21401/lib/Net Modified Files: LDAP.pm Log Message: Allow host passed to new to be an array ref of several to try Index: LDAP.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- LDAP.pm 29 Oct 2001 17:29:15 -0000 1.28 +++ LDAP.pm 18 Feb 2002 15:58:27 -0000 1.29 @@ -22,7 +22,7 @@ LDAP_INAPPROPRIATE_AUTH ); -$VERSION = 0.25; +$VERSION = "0.25_01"; @ISA = qw(Net::LDAP::Extra); $LDAP_VERSION = 2; # default LDAP protocol version @@ -96,9 +96,15 @@ my $arg = &_options; my $obj = bless {}, $type; - $obj->_connect($host, $arg) or return; + foreach my $h (ref($host) ? @$host : ($host)) { + if ($obj->_connect($host, $arg)) { + $obj->{net_ldap_host} = $h; + last; + } + } + + return undef unless $obj->{net_ldap_socket}; - $obj->{net_ldap_host} = $host; $obj->{net_ldap_resp} = {}; $obj->{net_ldap_version} = $arg->{version} || $LDAP_VERSION; $obj->{net_ldap_async} = $arg->{async} ? 1 : 0; |