diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-09-27 06:07:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-09-27 06:07:11 +0000 |
| commit | 8242b9d4c8c3199cc92a7a82da7f0ed03e804073 (patch) | |
| tree | b720c09e852041629fca9a72e25c305d76b80295 /perl-install | |
| parent | 67b6893ec98ba6915b7d644fe1214e2048656b55 (diff) | |
| download | drakx-8242b9d4c8c3199cc92a7a82da7f0ed03e804073.tar drakx-8242b9d4c8c3199cc92a7a82da7f0ed03e804073.tar.gz drakx-8242b9d4c8c3199cc92a7a82da7f0ed03e804073.tar.bz2 drakx-8242b9d4c8c3199cc92a7a82da7f0ed03e804073.tar.xz drakx-8242b9d4c8c3199cc92a7a82da7f0ed03e804073.zip | |
better logging
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install2.pm | 2 | ||||
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 90afaa98f..dcaeca6d5 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -220,7 +220,7 @@ sub choosePackages { #- always setPackages as it may have to copy hdlist files and synthesis files. installStepsCall($o, $auto, 'setPackages', $o->{isUpgrade} && $ent_number == 1); installStepsCall($o, $auto, 'choosePackages', $o->{packages}, $o->{compssUsers}, $ent_number == 1); - log::l("rpmsrate_flags_chosen's: ", join(" ", map_each { if_($::b, $::a) } %{$o->{rpmsrate_flags_chosen}})); + log::l("rpmsrate_flags_chosen's: ", join(" ", sort(map_each { if_($::b, $::a) } %{$o->{rpmsrate_flags_chosen}}))); #- check pre-condition where base backage has to be selected. pkgs::packageByName($o->{packages}, 'basesystem')->flag_available or die "basesystem package not selected"; diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 4d886cc12..1a62081d8 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -683,7 +683,7 @@ sub setSelectedFromCompssList { last; } } - log::l("setSelectedFromCompssList: reached size ", formatXiB($nb), ", up to indice $min_level (less than ", formatXiB($max_size), ") for flags ", map_each { if_($::b, $::a) } %$rpmsrate_flags_chosen); + log::l("setSelectedFromCompssList: reached size ", formatXiB($nb), ", up to indice $min_level (less than ", formatXiB($max_size), ") for flags ", sort(map_each { if_($::b, $::a) } %$rpmsrate_flags_chosen)); log::l("setSelectedFromCompssList: ", join(" ", sort map { $_->name } grep { $_->flag_selected } @{$packages->{depslist}})); $min_level; } |