# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1387204077 -3600
# Node ID 29ca93ca12e0884706d6efe564b13fe6b1925bc5
# Parent  452350b856826c43fd5e1ff2d02d57b6e3a77481
improved the selfcheck: gid, groups

diff -r 452350b85682 -r 29ca93ca12e0 bin/amdumpext
--- a/bin/amdumpext	Mon Dec 16 14:31:18 2013 +0100
+++ b/bin/amdumpext	Mon Dec 16 15:27:57 2013 +0100
@@ -122,7 +122,16 @@
 
     OK "$ME version $VERSION";
     OK "euid=$> (" . getpwuid($>) . ')'; 
-    OK "egid=$) (" . join(', ' => map { '' . getgrgid $_ } split ' ' => $)) . ')';
+    OK "egid=" . do {
+	my $gid = (split ' ', $))[0];
+	my $group = getgrgid $gid;
+	"$gid ($group)";
+    };
+    OK "groups=" . do {
+	my (undef, @gids) = split ' ', $);
+	my @groups = map { '' . getgrgid $_ } @gids;
+	"@gids (@groups)";
+    };
 
     if ($_ = (grep { -x ($_ .= "/dump") } split /:/ => $ENV{PATH})[0]) {
         chomp(my $version = (`$_ 2>&1`)[0]);