diff options
| -rw-r--r-- | usr/src/libpiny/lib/Piny/User.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/usr/src/libpiny/lib/Piny/User.pm b/usr/src/libpiny/lib/Piny/User.pm index 14e2ca1..b2e85f5 100644 --- a/usr/src/libpiny/lib/Piny/User.pm +++ b/usr/src/libpiny/lib/Piny/User.pm @@ -80,7 +80,7 @@ sub remove_group { sub has_group { my ( $s, $group ) = @_; - foreach my $owngroup ( $s->groups( ) ) { + foreach my $owngroup ( @{$s->groups( )} ) { return if $owngroup->gid( ) == $group->gid( ); }; |