From deddef1f4746139ed4ef994d8f053bf39d4d6384 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 17 Jul 1999 16:45:33 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 34f4c9139..f7bac3580 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -10,11 +10,21 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK);
 );
 @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
 
-use common qw(:system);
+use common qw(:common :system);
 use log;
 
 1;
 
+sub fileInBase { member($_[0], qw(hdlist comps)); }
+
+sub imageGetFile { 
+    fileInBase($_[0]) and return "/tmp/rhimage/Mandrake/base/$_[0]";
+    my $f = "/tmp/rhimage/Mandrake/RPMS/$_[0]";
+    -r $f and return $f;
+    $f =~ s/i386/i586/;
+    $f;
+}
+
 sub versionString {
     my $kernel = $::o->{packages}->{kernel} or die "I couldn't find the kernel package!";
     
-- 
cgit v1.2.1