[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.36,1.37

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

Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory usw-pr-cvs1:/tmp/cvs-serv10350/lib/Net

Modified Files:
	LDAP.pm 
Log Message:
Fix typo preventing multiple being passed to new


Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- LDAP.pm	11 Sep 2002 12:53:15 -0000	1.36
+++ LDAP.pm	11 Sep 2002 12:54:47 -0000	1.37
@@ -97,7 +97,7 @@
   my $obj  = bless {}, $type;
 
   foreach my $h (ref($host) ? @$host : ($host)) {
-    if ($obj->_connect($host, $arg)) {
+    if ($obj->_connect($h, $arg)) {
       $obj->{net_ldap_host} = $h;
       last;
     }