--- LDAP.pm,dist 2008-11-02 21:54:28.000000000 +0100 +++ LDAP.pm 2008-11-02 21:58:16.000000000 +0100 @@ -174,6 +174,17 @@ } +sub exists { + my ($this, $item) = (shift, shift); + + if (!exists($this->{cache}->{$item}) and $this->{keybykey}) { + $this->load($item); + } + + $this->SUPER::exists($item); +} + + sub load { my $this = shift; return unless $this->{keybykey};