equal
deleted
inserted
replaced
131 my (undef, @gids) = split ' ', $); |
131 my (undef, @gids) = split ' ', $); |
132 my @groups = map { '' . getgrgid $_ } @gids; |
132 my @groups = map { '' . getgrgid $_ } @gids; |
133 "@gids (@groups)"; |
133 "@gids (@groups)"; |
134 }; |
134 }; |
135 |
135 |
136 if ($_ = (grep { -x ($_ .= "/dump") } split /:/ => $ENV{PATH})[0]) { |
136 foreach my $tool (qw(dump restore)) { |
|
137 if ($_ = (grep { -x ($_ .= "/$tool") } split /:/ => $ENV{PATH})[0]) { |
137 chomp(my $version = (`$_ 2>&1`)[0]); |
138 chomp(my $version = (`$_ 2>&1`)[0]); |
138 OK "dump is $version"; |
139 OK "$tool is $version"; |
139 } |
140 } |
140 else { |
141 else { |
141 ERROR "dump not found in $ENV{PATH}"; |
142 ERROR "$tool not found in $ENV{PATH}"; |
|
143 } |
142 } |
144 } |
143 |
145 |
144 # check the device |
146 # check the device |
145 # the opt_disk is just a label, the device is in opt_device! |
147 # the opt_disk is just a label, the device is in opt_device! |
146 my $device = device($opt_device); |
148 my $device = device($opt_device); |