simplified user group sanitation

[scpubgit/System-Introspector.git] / lib / System / Introspector / Probe / Users.pm

diff --git a/lib/System/Introspector/Probe/Users.pm b/lib/System/Introspector/Probe/Users.pm
index 6c1a82a..e0baa5b 100644 (file)
--- a/lib/System/Introspector/Probe/Users.pm
+++ b/lib/System/Introspector/Probe/Users.pm
@@ -78,7 +78,9 @@ sub _gather_ssh_keys {
 sub _gather_user_groups {
     my ($self, $user) = @_;
     my $groups = output_from_command [groups => $user];
-    return { list => [split m{\s+}, $groups] };
+    chomp $groups;
+    $groups =~ s{^ .* : \s* }{}x;
+    return [split m{\s+}, $groups];
 }
 
 sub _deparse_htpasswd_line {