diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-09-17 09:45:27 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-09-17 09:45:27 +0000 |
| commit | 1d2aeea6110b4e3b8db35e33f5543153a8b41bc6 (patch) | |
| tree | b6ca2b3a613df5ddb444a9636812771029ad5ec3 /perl-install | |
| parent | fac64518af37d05f684cc937a25ee8121cd310a5 (diff) | |
| download | drakx-backup-do-not-use-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar drakx-backup-do-not-use-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar.gz drakx-backup-do-not-use-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar.bz2 drakx-backup-do-not-use-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar.xz drakx-backup-do-not-use-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.zip | |
indent and space fixes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 0fa3b159c..4596e94bc 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -99,16 +99,16 @@ sub read_rpmsrate { my @flags = @{$flags->{$_}}; my $p; if ($::isInstall) { - $p = install::pkgs::packageByName($packages, $_) or next; - if (my @l = map { /locales-(.*)/ ? qq(LOCALES"$1") : () } $p->requires_nosense) { - if (@l > 1) { - log::l("ERROR: package $_ is requiring many locales") if $_ ne 'lsb'; - } else { - push @flags, @l; - } - } + $p = install::pkgs::packageByName($packages, $_) or next; + if (my @l = map { /locales-(.*)/ ? qq(LOCALES"$1") : () } $p->requires_nosense) { + if (@l > 1) { + log::l("ERROR: package $_ is requiring many locales") if $_ ne 'lsb'; + } else { + push @flags, @l; + } + } } - + @flags = map { my ($user_flags, $known_flags) = partition { /^!?CAT_/ } split('\|\|', $_); my $ok = find { @@ -130,10 +130,10 @@ sub read_rpmsrate { } @flags; if ($::isInstall) { - $p->set_rate($rates->{$_}); - $p->set_rflags(member('FALSE', @flags) ? 'FALSE' : @flags); + $p->set_rate($rates->{$_}); + $p->set_rflags(member('FALSE', @flags) ? 'FALSE' : @flags); } else { - $flags->{$_} = \@flags; + $flags->{$_} = \@flags; } } push @{$packages->{needToCopy} ||= []}, @$need_to_copy if ref($packages); |