From 9019611d95da1c18d6fc7d96d9e2b588cf8a8b28 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 14 Sep 1999 15:24:08 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 6 ++++--
 1 file changed, 4 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 79c41bfa6..e40c800fe 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -24,8 +24,10 @@ use log;
 #- Functions
 #-######################################################################################
 sub relGetFile($) {
-    local $_ = member($_[0], qw(compss compssList depslist hdlist)) ? "base" : "RPMS";
-    $_ = "Mandrake/$_/$_[0]";
+    local $_ = $_[0];
+    my $dir = m|/| ? "mdkinst" : 
+      (member($_, qw(compss compssList depslist hdlist)) ? "base" : "RPMS");
+    $_ = "Mandrake/$dir/$_";
     s/i386/i586/;
     $_;
 }
-- 
cgit v1.2.1