Comment fixes, remove noisy log

2 files changed, 13 insertions, 16 deletions

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e96b6dcee..2354da8ae 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -186,8 +186,8 @@ sub errorOpeningFile($) {
     #- Do not unselect supplementary CDs.
     return if install_medium::by_id($asked_medium)->is_suppl_cd;
 
-    #- keep in mind the asked medium has been refused on this way.
-    #- this means it is no more selected.
+    #- keep in mind the asked medium has been refused.
+    #- this means it is no longer selected.
     install_medium::by_id($asked_medium)->refuse;
 
     #- on cancel, we can expect the current medium to be undefined too,
@@ -547,7 +547,7 @@ sub selectSupplMedia {
 		$medium_name,
 		'', #- rpmsdir
 		"Supplementary media $medium_name", #- description
-		1, # selected
+		1, #- selected
 		$f,
 	    );
 	    close $f;
@@ -1096,7 +1096,7 @@ sub install_urpmi {
 
 ";
 	} else {
-	    #- remove not selected media by removing hdlist and synthesis files copied.
+	    #- remove deselected media by removing copied hdlist and synthesis files
 	    log::l("removing media $name");
 	    unlink "$::prefix/var/lib/urpmi/hdlist.$name.cz";
 	    unlink "$::prefix/var/lib/urpmi/synthesis.hdlist.$name.cz";
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;