svnno****@sourc*****
svnno****@sourc*****
2007年 10月 25日 (木) 18:27:40 JST
スラドRevision: 228
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=228
Author: tach
Date: 2007-10-25 18:27:40 +0900 (Thu, 25 Oct 2007)
Log Message:
-----------
fix typos
Modified Paths:
--------------
slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm
-------------- next part --------------
Modified: slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm
===================================================================
--- slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm 2007-10-24 12:48:18 UTC (rev 227)
+++ slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm 2007-10-25 09:27:40 UTC (rev 228)
@@ -57,8 +57,8 @@
if (!$self->{_disabled} &&
!($self->{_ldap} = Net::LDAP->new($self->{host}, timeout => $self->{timeout}))){
- __debug(1, "LDAP: can't create DLAP object $@");
- $self->{_disabled} = "DLAP object create fail: $@";
+ __debug(1, "LDAP: can't create LDAP object $@");
+ $self->{_disabled} = "LDAP object create fail: $@";
}
return $self;
}
@@ -166,7 +166,7 @@
my $changes = $self->_s2lop($val);
return -1 unless @$changes;
- __debug(9, "DLAP::serUser ".Data::Dumper->Dump([$changes], [qw($changes)]));
+ __debug(9, "LDAP::setUser ".Data::Dumper->Dump([$changes], [qw($changes)]));
$self->bind;
my $mesg = $self->_timeout(sub { $self->{_ldap}->modify("cn=$user,$self->{base_dn}",