Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory usw-pr-cvs1:/tmp/cvs-serv23308/lib/Net
Modified Files:
LDAP.pm LDAP.pod
Log Message:
Add multihomed to the options passed onto IO::Socket
Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- LDAP.pm 11 Sep 2002 12:54:47 -0000 1.37
+++ LDAP.pm 24 Oct 2002 13:08:07 -0000 1.38
@@ -124,10 +124,11 @@
my ($ldap, $host, $arg) = @_;
$ldap->{net_ldap_socket} = IO::Socket::INET->new(
- PeerAddr => $host,
- PeerPort => $arg->{port} || '389',
- Proto => 'tcp',
- Timeout => defined $arg->{timeout}
+ PeerAddr => $host,
+ PeerPort => $arg->{port} || '389',
+ Proto => 'tcp',
+ MultiHomed => $arg->{multihomed},
+ Timeout => defined $arg->{timeout}
? $arg->{timeout}
: 120
);
Index: LDAP.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pod,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- LDAP.pod 3 Jun 2002 15:35:52 -0000 1.16
+++ LDAP.pod 24 Oct 2002 13:08:07 -0000 1.17
@@ -71,6 +71,11 @@
Timeout passed to L<IO::Socket> when connecting the remote server.
(Default: 120)
+=item multihomed
+
+Will be passed to L<IO::Socket> as the C<MultiHomed> parameter
+when connecting to the remote server
+
=item debug
If passed a non-zero value then debug data will be sent to C<STDERR>. The
|
