steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.40,1.41

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-Conf
In directory doto:/tmp/cvs-serv9908/Kolab-Conf

Modified Files:
	Conf.pm 
Log Message:
fixlet

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- Conf.pm	29 Sep 2004 21:07:52 -0000	1.40
+++ Conf.pm	11 Oct 2004 19:07:34 -0000	1.41
@@ -389,7 +389,7 @@
 	      my $umesg = $ldap->search( base => $uid,
 					 scope => 'exact', 
 					 filter => '(objectClass=*)' );
-	      if ($umesg->code <= 0 && $umesg->count() == 1 ) {
+	      if ( $umesg && $umesg->code() <= 0 && $umesg->count() == 1 ) {
 		my $mail;
 		($mail = $umesg->entry(0)->get_value('mail')) or
 		($mail = $umesg->entry(0)->get_value('uid'));