forked from josch/mmdebstrap
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 {
|
||||
my $options = shift;
|
||||
|
||||
foreach my $key (sort keys %{$options}) {
|
||||
my $value = $options->{$key};
|
||||
if (!defined $value) {
|
||||
next;
|
||||
}
|
||||
if (ref $value eq '') {
|
||||
print STDERR "I: $key: $options->{$key}\n";
|
||||
} elsif (ref $value eq 'ARRAY') {
|
||||
print STDERR "I: $key: [" . (join ', ', @{$value}) . "]\n";
|
||||
} else {
|
||||
die "unknown type";
|
||||
if (0) {
|
||||
foreach my $key (sort keys %{$options}) {
|
||||
my $value = $options->{$key};
|
||||
if (!defined $value) {
|
||||
next;
|
||||
}
|
||||
if (ref $value eq '') {
|
||||
print STDERR "I: $key: $options->{$key}\n";
|
||||
} elsif (ref $value eq 'ARRAY') {
|
||||
print STDERR "I: $key: [" . (join ', ', @{$value}) . "]\n";
|
||||
} else {
|
||||
die "unknown type";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue