From 0ba4acf7f5757fd27bf10ef36cbb64e316863b3a Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 13 Aug 2003 15:40:25 +0000
Subject: added tiny support for arch dependant directory.

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e9bb89d04..e5e7eba07 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -53,7 +53,11 @@ sub changeMedium($$) {
 }
 sub relGetFile($) {
     local $_ = $_[0];
-    m|\.rpm$| ? "$::o->{packages}{mediums}{$asked_medium}{rpmsdir}/$_" : $_;
+    if (my ($arch) = m|\.([^\.]*)\.rpm$|) {
+	$_ = "$::o->{packages}{mediums}{$asked_medium}{rpmsdir}/$_";
+	s/%{ARCH}/$arch/g;
+    }
+    $_;
 }
 sub askChangeMedium($$) {
     my ($method, $medium) = @_;
-- 
cgit v1.2.1