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;
}
|
