|
|
@ -552,17 +552,19 @@ sub run_apt_progress {
|
|
|
|
sub setup {
|
|
|
|
sub setup {
|
|
|
|
my $options = shift;
|
|
|
|
my $options = shift;
|
|
|
|
|
|
|
|
|
|
|
|
foreach my $key (sort keys %{$options}) {
|
|
|
|
if (0) {
|
|
|
|
my $value = $options->{$key};
|
|
|
|
foreach my $key (sort keys %{$options}) {
|
|
|
|
if (!defined $value) {
|
|
|
|
my $value = $options->{$key};
|
|
|
|
next;
|
|
|
|
if (!defined $value) {
|
|
|
|
}
|
|
|
|
next;
|
|
|
|
if (ref $value eq '') {
|
|
|
|
}
|
|
|
|
print STDERR "I: $key: $options->{$key}\n";
|
|
|
|
if (ref $value eq '') {
|
|
|
|
} elsif (ref $value eq 'ARRAY') {
|
|
|
|
print STDERR "I: $key: $options->{$key}\n";
|
|
|
|
print STDERR "I: $key: [" . (join ', ', @{$value}) . "]\n";
|
|
|
|
} elsif (ref $value eq 'ARRAY') {
|
|
|
|
} else {
|
|
|
|
print STDERR "I: $key: [" . (join ', ', @{$value}) . "]\n";
|
|
|
|
die "unknown type";
|
|
|
|
} else {
|
|
|
|
|
|
|
|
die "unknown type";
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|