# HG changeset patch
# User Matthias Förste foerste@schlittermann.de
# Date 1323852965 -3600
# Node ID 66832ec269add3eeccc7657e1c46c6367c616d0c
# Parent  430b3ecdbbf82e2fac1298f5bf6d756f641a892a
silenced runtime warning

diff -r 430b3ecdbbf8 -r 66832ec269ad account.pm
--- a/account.pm	Tue Dec 13 22:47:23 2011 +0100
+++ b/account.pm	Wed Dec 14 09:56:05 2011 +0100
@@ -480,8 +480,8 @@
         my $ml   = join( ", ", $e->get_value(AT_ADDRESS) ) || "";           # ??
         my $mg   = join( ", ", $e->get_value(AT_GROUP) ) || "";             # ??
         my $forw = join( ", ", $e->get_value(AT_FORWARDINGADDRESS) ) || "";
-        my $ag   = join ',$', split /,/, $e->get_value(AT_ACLGROUPS);
-        $ag = "\$$ag" if $ag;
+        my $ag   = $e->get_value(AT_ACLGROUPS);
+        $ag      = '$' . join ',$', split /,/, $ag if $ag;
 
         print "$uid: $cn <$mr>";