From 51cbb8aad9b16ac231d4902568d7a63847cb996c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Mar 2000 10:19:00 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 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 332dbed3e..248dc5b69 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -138,8 +138,8 @@ sub setPackages($) {
 
 	push @{$o->{base}}, @{delete($o->{"base_" . arch()}) || []};
 
-	my $c; ($o->{compss}, $c) = pkgs::readCompss($o->{packages});
-	$o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $c);
+	$o->{compss} = pkgs::readCompss($o->{packages});
+	$o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $o->{compss});
 	($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{compss});
 
 	my @l = ();
-- 
cgit v1.2.1