From 3b9b604eb1802c5f546bd444dae32e179bbb7d20 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 16 Jan 2000 23:08:46 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 006834939..e690c7e32 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -2,6 +2,8 @@ package install_any;
 
 use diagnostics;
 use strict;
+use Config;
+
 use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK);
 
 @ISA = qw(Exporter);
@@ -136,6 +138,8 @@ sub setPackages($) {
 
 	pkgs::getDeps($o->{packages});
 
+	push @{$o->{base}}, @{delete($o->{"base_" . arch()}) || []};
+
 	my $c; ($o->{compss}, $c) = pkgs::readCompss($o->{packages});
 	$o->{compssListLevels} = pkgs::readCompssList($o->{packages}, $c);
 	($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{compss});
-- 
cgit v1.2.1