equal
deleted
inserted
replaced
120 # must: $opt_device |
120 # must: $opt_device |
121 # may: $opt_level |
121 # may: $opt_level |
122 |
122 |
123 OK "$ME version $VERSION"; |
123 OK "$ME version $VERSION"; |
124 OK "euid=$> (" . getpwuid($>) . ')'; |
124 OK "euid=$> (" . getpwuid($>) . ')'; |
125 OK "egid=$) (" . join(', ' => map { '' . getgrgid $_ } split ' ' => $)) . ')'; |
125 OK "egid=" . do { |
|
126 my $gid = (split ' ', $))[0]; |
|
127 my $group = getgrgid $gid; |
|
128 "$gid ($group)"; |
|
129 }; |
|
130 OK "groups=" . do { |
|
131 my (undef, @gids) = split ' ', $); |
|
132 my @groups = map { '' . getgrgid $_ } @gids; |
|
133 "@gids (@groups)"; |
|
134 }; |
126 |
135 |
127 if ($_ = (grep { -x ($_ .= "/dump") } split /:/ => $ENV{PATH})[0]) { |
136 if ($_ = (grep { -x ($_ .= "/dump") } split /:/ => $ENV{PATH})[0]) { |
128 chomp(my $version = (`$_ 2>&1`)[0]); |
137 chomp(my $version = (`$_ 2>&1`)[0]); |
129 OK "dump is $version"; |
138 OK "dump is $version"; |
130 } |
139 } |