show all errors when we get an ldap connection error

LDAP->new can also set $@

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>

diff --git a/PMG/LDAPCache.pm b/PMG/LDAPCache.pm
index b151ea710d087f6f6ce2bd8ce54592c3fc1b1c1a..0d3601915acb281d2462a764e98cb7297c4a57ad 100755 (executable)
--- a/PMG/LDAPCache.pm
+++ b/PMG/LDAPCache.pm
@@ -358,7 +358,7 @@ sub ldap_connect_and_bind {
      my ($self) = @_;
 
      my $ldap = $self->ldap_connect() ||
-        die "Can't bind to ldap server '$self->{id}': $!\n";
+        die "Can't bind to ldap server '$self->{id}': $! $@\n";
 
      my $mesg;