# 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>";