thomas: server/perl-kolab/lib/Kolab LDAP.pm,1.2,1.3

[cvs at kolab.org]

Author: thomas

Update of /kolabrepository/server/perl-kolab/lib/Kolab
In directory doto:/tmp/cvs-serv6189/perl-kolab/lib/Kolab

Modified Files:
	LDAP.pm 
Log Message:
perl-kolab/lib/Kolab/LDAP.pm: Fix synchronization of mailboxes with newer perl.
kolab/issue2411 (perl error in LDAP.pm)


Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/LDAP.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- LDAP.pm	28 Nov 2007 12:45:32 -0000	1.2
+++ LDAP.pm	4 Feb 2008 16:40:18 -0000	1.3
@@ -540,7 +540,7 @@
     my %objects;
     my $mailbox;
     foreach $mailbox (@mailboxes) {
-        my $u = ${@{$mailbox}}[0];
+        my $u = @{$mailbox}[0];
         $u =~ /user[\/\.]([^\/]*)\/?.*/;
         $objects{$1} = 1 if ($1);
     }