removed redundant data structure part in commit count

[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 1260120..e0baa5b 100644 (file)
--- a/lib/System/Introspector/Probe/Users.pm
+++ b/lib/System/Introspector/Probe/Users.pm
@@ -43,7 +43,7 @@ sub _gather_crontab {
     unless ($ok) {
         return {}
             if $err =~ m{^no crontab}i;
-        return { error => $err };
+        return { __error__ => $err };
     }
     return { body => $out };
 }
@@ -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 {