command invocation fix

diff --git a/lib/System/Introspector/Users.pm b/lib/System/Introspector/Users.pm
index 4510c6c..eeeb3a5 100644 (file)
--- a/lib/System/Introspector/Users.pm
+++ b/lib/System/Introspector/Users.pm
@@ -65,7 +65,7 @@ sub _gather_ssh_keys {
 
 sub _gather_user_groups {
     my ($self, $user) = @_;
-    my $groups = output_from_command "groups $user";
+    my $groups = output_from_command [groups => $user];
     return { list => [split m{\s+}, $groups] };
 }