cope with optional user prefix to groups list

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

diff --git a/t/bin/groups b/t/bin/groups
index 432a363..db8a7ab 100755 (executable)
--- a/t/bin/groups
+++ b/t/bin/groups
@@ -1,4 +1,4 @@
 #!/usr/bin/env perl
 use strictures 1;
 my $user = shift @ARGV;
-printf "%s\n", join ' ', map { "${user}_group_${_}" } qw( A B C );
+printf "$user : %s\n", join ' ', map { "${user}_group_${_}" } qw( A B C );