summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-27 06:04:47 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-27 06:04:47 +0000
commitcf535250028dbbfe2a35476b3a766e6093b5c79b (patch)
tree33c3317c579614fec84f252c0c7f1da772f7215d /perl-install/pkgs.pm
parentc1b3e316c56d9bea5e2cd3267a79c38ef860847c (diff)
downloaddrakx-cf535250028dbbfe2a35476b3a766e6093b5c79b.tar
drakx-cf535250028dbbfe2a35476b3a766e6093b5c79b.tar.gz
drakx-cf535250028dbbfe2a35476b3a766e6093b5c79b.tar.bz2
drakx-cf535250028dbbfe2a35476b3a766e6093b5c79b.tar.xz
drakx-cf535250028dbbfe2a35476b3a766e6093b5c79b.zip
Comment fixes, remove noisy log
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm21
1 files changed, 9 insertions, 12 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 91c2692aa..c07fa6238 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -307,7 +307,7 @@ sub selectPackage {
sub unselectPackage($$;$) {
my ($packages, $pkg, $o_otherOnly) = @_;
- #- base package are not unselectable,
+ #- base packages are not unselectable,
#- and already unselected package are no more unselectable.
$pkg->flag_base and return;
$pkg->flag_selected or return;
@@ -337,16 +337,15 @@ sub unselectAllPackages($) {
log::l("unselecting all packages...");
foreach (@{$packages->{depslist}}) {
if ($_->flag_base || $_->flag_installed && $_->flag_selected) {
- #- keep track of package that should be kept selected.
+ #- keep track of packages that should be kept selected.
$keep_selected{$_->id} = $_;
- log::l("...keeping " . $_->fullname);
} else {
#- deselect all packages except base or packages that need to be upgraded.
$_->set_flag_required(0);
$_->set_flag_requested(0);
}
}
- #- clean staten, in order to start with a brand new set...
+ #- clean state, in order to start with a brand new set...
$packages->{state} = {};
$packages->resolve_requested($packages->{rpmdb}, $packages->{state}, \%keep_selected,
callback_choices => \&packageCallbackChoices);
@@ -433,8 +432,6 @@ sub psUsingHdlists {
}
foreach my $h (@hdlists) {
- #- make sure the first medium is always selected!
- #- by default select all image.
my $medium = psUsingHdlist($method, $o_packages, @$h);
$o_callback and $o_callback->($medium, $o_hdlistsprefix, $method);
}
@@ -716,8 +713,8 @@ sub setSelectedFromCompssList {
$min_level;
}
-#- usefull to know the size it would take for a given min_level/max_size
-#- just saves the selected packages, call setSelectedFromCompssList and restores the selected packages
+#- useful to know the size it would take for a given min_level/max_size
+#- just save the selected packages, call setSelectedFromCompssList, and restore the selected packages
sub saveSelected {
my ($packages) = @_;
my $state = delete $packages->{state};
@@ -971,7 +968,7 @@ sub installTransactionClosure {
#- search first usable medium (sorted by medium ordering).
foreach (sort { $a->{start} <=> $b->{start} } values %{$packages->{mediums}}) {
unless ($_->selected) {
- #- this medium is not selected, but we have to make sure no package are left
+ #- this medium is not selected, but we have to make sure no package is left
#- in $id2pkg.
if (defined $_->{start} && defined $_->{end}) {
foreach ($_->{start} .. $_->{end}) {
@@ -1064,9 +1061,9 @@ sub install {
#- for root loopback'ed /boot
my $loop_boot = loopback::prepare_boot();
- #- first stage to extract some important informations
- #- about the packages selected. this is used to select
- #- one or many transaction.
+ #- first stage to extract some important information
+ #- about the selected packages. This is used to select
+ #- one or many transactions.
my ($total, $nb);
foreach my $pkg (@$toInstall) {
$packages{$pkg->id} = $pkg;