From 531bffc9b9afcedb97bb099fa27bb0132e9d0b84 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 9 Mar 2001 00:25:33 +0000 Subject: (choosePackages): log groups choosen --- perl-install/install2.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index c4b50986b..b2fb734db 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -238,6 +238,7 @@ sub choosePackages { $o->setPackages; $o->choosePackages($o->{packages}, $o->{compss}, $o->{compssUsers}, $_[1] == 1); + log::l("compssUsersChoice's: ", join(" ", grep { $o->{compssUsersChoice}{$_} } keys %{$o->{compssUsersChoice}})); #- check pre-condition where base backage has to be selected. pkgs::packageFlagSelected(pkgs::packageByName($o->{packages}, 'basesystem')) or die "basesystem package not selected"; -- cgit v1.2.1