From 47ca9ac0b62c7027d30f7fc996f5ceb7aceb8963 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie <jblake@omgwallhack.org>
Date: Tue, 29 Jun 2010 22:57:33 -0700
Subject: Properly dereference array ref.

---
 usr/src/libpiny/lib/Piny/User.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'usr/src/libpiny/lib/Piny/User.pm')

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( );
   };
 
-- 
cgit v1.2.3