Index: perl-ldap/lib/Net/LDAP.pod
===================================================================
--- perl-ldap/lib/Net/LDAP.pod	(revision 395)
+++ perl-ldap/lib/Net/LDAP.pod	(working copy)
@@ -94,6 +94,11 @@
 Will be passed to L<IO::Socket> as the C<MultiHomed> parameter
 when connecting to the remote server
 
+=item localaddr =E<gt> HOST
+
+Will be passed to L<IO::Socket> as the C<LocalAddr> parameter, which
+sets the client's IP address (as opposed to the server's IP address.)
+
 =item debug =E<gt> N
 
 Set the debug level. See the L<debug|debug> method for details.
Index: perl-ldap/lib/Net/LDAP.pm
===================================================================
--- perl-ldap/lib/Net/LDAP.pm	(revision 395)
+++ perl-ldap/lib/Net/LDAP.pm	(working copy)
@@ -27,7 +27,7 @@
 			   LDAP_UNAVAILABLE
 			);
 
-$VERSION 	= "0.31";
+$VERSION 	= "0.31_01";
 @ISA     	= qw(Tie::StdHash Net::LDAP::Extra);
 $LDAP_VERSION 	= 3;      # default LDAP protocol version
 
@@ -135,6 +135,7 @@
   $ldap->{net_ldap_socket} = IO::Socket::INET->new(
     PeerAddr   => $host,
     PeerPort   => $arg->{port} || '389',
+    LocalAddr  => $arg->{localaddr} || undef,
     Proto      => 'tcp',
     MultiHomed => $arg->{multihomed},
     Timeout    => defined $arg->{timeout}
@@ -156,6 +157,7 @@
   $ldap->{'net_ldap_socket'} = IO::Socket::SSL->new(
     PeerAddr 	    => $host,
     PeerPort 	    => $arg->{'port'} || '636',
+    LocalAddr       => $arg->{localaddr} || undef,
     Proto    	    => 'tcp',
     Timeout  	    => defined $arg->{'timeout'} ? $arg->{'timeout'} : 120,
     _SSL_context_init_args($arg)