map groups by name instead of gid

diff --git a/lib/System/Introspector/Groups.pm b/lib/System/Introspector/Groups.pm
index 15ea3b7..db6e358 100644 (file)
--- a/lib/System/Introspector/Groups.pm
+++ b/lib/System/Introspector/Groups.pm
@@ -17,7 +17,7 @@ sub gather {
             $users = length($users)
                 ? [split m{,}, $users]
                 : [];
-            $group{ $gid } = {
+            $group{ $name } = {
                 name    => $name,
                 gid     => $gid,
                 users   => $users,