Signed-off-by: Philipp Kern <pkern@debian.org>
if (!defined($ui->{'User'}));
foreach $key (keys %{$ui}) {
my $val = $ui->{$key};
if (!defined($ui->{'User'}));
foreach $key (keys %{$ui}) {
my $val = $ui->{$key};
$val =~ s/^/ /mg;
$val =~ s/^ $/ ./mg;
print F "$key: $val\n";
$val =~ s/^/ /mg;
$val =~ s/^ $/ ./mg;
print F "$key: $val\n";
else {
foreach $key (keys %{$pkg}) {
my $val = $pkg->{$key};
else {
foreach $key (keys %{$pkg}) {
my $val = $pkg->{$key};
$val =~ s/^/ /mg;
$val =~ s/^ $/ ./mg;
print F "$key: $val\n";
$val =~ s/^/ /mg;
$val =~ s/^ $/ ./mg;
print F "$key: $val\n";