From 42a8773fe0e728410692098f2a11652ef5752849 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 29 Nov 2004 16:01:09 +0000 Subject: A bit of grammar --- perl-install/install2.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 4bcc0e656..5d006aa17 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -217,16 +217,16 @@ sub choosePackages { my ($_clicked, $ent_number, $auto) = @_; require pkgs; - #- always setPackages as it may have to copy hdlist files and synthesis files. + #- always setPackages as it may have to copy hdlist and synthesis files. installStepsCall($o, $auto, 'setPackages', $o->{isUpgrade} && $ent_number == 1); installStepsCall($o, $auto, 'choosePackages', $o->{packages}, $o->{compssUsers}, $ent_number == 1); my @flags = map_each { if_($::b, $::a) } %{$o->{rpmsrate_flags_chosen}}; log::l("rpmsrate_flags_chosen's: ", join(' ', sort @flags)); - #- check pre-condition where base backage has to be selected. + #- check pre-condition that basesystem package must be selected. pkgs::packageByName($o->{packages}, 'basesystem')->flag_available or die "basesystem package not selected"; - #- check if there are package that need installation. + #- check if there are packages that need installation. $o->{steps}{installPackages}{done} = 0 if $o->{steps}{installPackages}{done} && pkgs::packagesToInstall($o->{packages}) > 0; } -- cgit v1.2.1