diff options
| author | Julian Blake Kongslie <jblake@omgwallhack.org> | 2010-06-29 22:57:33 -0700 |
|---|---|---|
| committer | Julian Blake Kongslie <jblake@omgwallhack.org> | 2010-06-29 22:57:33 -0700 |
| commit | 47ca9ac0b62c7027d30f7fc996f5ceb7aceb8963 (patch) | |
| tree | 121eea5e51f0a9a8f52ad68df61fba6213d42294 /usr/src/libpiny/lib/Piny/User.pm | |
| parent | 6eb23f2537b0bc09d110a09d5b50784054e59416 (diff) | |
| download | piny-code-47ca9ac0b62c7027d30f7fc996f5ceb7aceb8963.tar.gz piny-code-47ca9ac0b62c7027d30f7fc996f5ceb7aceb8963.zip | |
Properly dereference array ref.
Diffstat (limited to 'usr/src/libpiny/lib/Piny/User.pm')
| -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( ); }; |