summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-09-17 09:45:27 +0000
committerOlivier Blin <oblin@mandriva.com>2008-09-17 09:45:27 +0000
commit1d2aeea6110b4e3b8db35e33f5543153a8b41bc6 (patch)
treeb6ca2b3a613df5ddb444a9636812771029ad5ec3 /perl-install
parentfac64518af37d05f684cc937a25ee8121cd310a5 (diff)
downloaddrakx-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar
drakx-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar.gz
drakx-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar.bz2
drakx-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.tar.xz
drakx-1d2aeea6110b4e3b8db35e33f5543153a8b41bc6.zip
indent and space fixes
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm24
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);