From 39111c3f3bc6da2061b61df7419e8fa4ae81c6d0 Mon Sep 17 00:00:00 2001 From: Nicolas Vigier Date: Fri, 22 Feb 2013 00:10:13 +0000 Subject: mkpeople: don't push on array reference --- mkpeople | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mkpeople b/mkpeople index 5f34dc9..f579635 100755 --- a/mkpeople +++ b/mkpeople @@ -40,7 +40,7 @@ sub loadgroups { for my $user (@{$groups{$groupname}->{member}}) { loaduser($ldap, $user) unless exists $users{$user}; if (exists $users{$user}) { - push $users{$user}->{groups}, $groupname; + push @{$users{$user}->{groups}}, $groupname; } } $res->{$groupname}->{member} = -- cgit v1.2.1