do not print setup() arguments by default
This commit is contained in:
parent
e7e6ec0314
commit
b827e58d07
1 changed files with 13 additions and 11 deletions
24
mmdebstrap
24
mmdebstrap
|
@ -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";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue