steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.23,1.24

[cvs at intevation.de]

Author: steffen

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

Modified Files:
	Conf.pm 
Log Message:
bugfix

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- Conf.pm	4 Jul 2004 11:21:42 -0000	1.23
+++ Conf.pm	5 Jul 2004 09:46:43 -0000	1.24
@@ -385,7 +385,7 @@
     my $count = 60000;
     if ($mesg->code <= 0) {
         foreach $ldapobject ($mesg->entries) {
-	    my @dcs = split(/,/, at ldap_object->dn());
+	    my @dcs = split(/,/,$ldapobject->dn());
 	    my @dn;
 	    while( pop( @dcs ) =~ /dc=(.*)/ ) {
 	      push(@dn, $1);