From c047aee8e84b723f6910defab8b0de8063502490 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 28 Aug 2000 16:51:57 +0000 Subject: *** empty log message *** --- perl-install/install_any.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 38ca70d54..8485fc163 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -290,7 +290,7 @@ sub setPackages($) { #- must be done after selecting base packages (to save memory) pkgs::getProvides($o->{packages}); - $o->{compss} = pkgs::readCompss($o->{packages}); + $o->{compss} = pkgs::readCompss($o->{prefix}, $o->{packages}); #- must be done after getProvides $o->{compssListLevels} = pkgs::readCompssList($o->{packages}); ($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{compss}); @@ -304,7 +304,8 @@ sub setPackages($) { $_->{values} = [ map { $_ + 50 } @{$_->{values}} ] foreach grep {$_} map { pkgs::packageByName($o->{packages}, $_) } @l; } else { - #- this has to be done to make sure the hdlist files and depslist file are present. + #- this has to be done to make sure necessary files for urpmi are + #- present. pkgs::psUpdateHdlistsDeps($o->{prefix}, $o->{method}); #- remove upgrade flag with selection one. TOCHECK -- cgit v1.2.1