[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.37,1.38 LDAP.pod,1.16,1.17

[Graham B. <gb...@us...>]

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