|
|
@ -4312,6 +4312,11 @@ sub main() {
|
|
|
|
error "invalid format. Choose from " . (join ', ', @valid_formats);
|
|
|
|
error "invalid format. Choose from " . (join ', ', @valid_formats);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (!defined $ENV{PATH} || $ENV{PATH} eq "") {
|
|
|
|
|
|
|
|
## no critic (Variables::RequireLocalizedPunctuationVars)
|
|
|
|
|
|
|
|
$ENV{PATH} = "/usr/sbin:/usr/bin:/sbin:/bin";
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
foreach my $tool ('dpkg', 'dpkg-deb', 'apt-get', 'apt-cache', 'apt-config',
|
|
|
|
foreach my $tool ('dpkg', 'dpkg-deb', 'apt-get', 'apt-cache', 'apt-config',
|
|
|
|
'tar') {
|
|
|
|
'tar') {
|
|
|
|
my $found = 0;
|
|
|
|
my $found = 0;
|
|
|
|