summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-28 10:19:54 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-28 10:19:54 +0000
commit2d3b13d3b7e6f08f6310467ece7d399c5858d233 (patch)
tree61e0a5cc6284c4e8dc138385da6329f2b8e83e0f /perl-install/install_any.pm
parent90f7bb2359c71498b66bf6eb4ed764671816ace6 (diff)
downloaddrakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar.gz
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar.bz2
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.tar.xz
drakx-backup-do-not-use-2d3b13d3b7e6f08f6310467ece7d399c5858d233.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm19
1 files changed, 10 insertions, 9 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 48b0d0863..4ec01334c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -17,14 +17,15 @@ use log;
1;
-sub fileInBase { member($_[0], qw(compss depslist hdlist)); }
-
-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 relGetFile($) {
+ local $_ = member($_[0], qw(compss depslist hdlist)) ? "base" : "RPMS";
+ $_ = "Mandrake/$_/$_[0]";
+ s/i386/i586/;
+ $_;
+}
+sub getFile($) {
+ open getFile, "/tmp/rhimage/" . relGetFile($_[0]) or return;
+ \*getFile;
}
sub versionString {
@@ -95,7 +96,7 @@ sub setPackages {
$o->{packages}{$_}{base} = 1 foreach @{$o->{base}};
- pkgs::setCompssSelected($o->{compss}, $o->{packages}, $o->{installClass});
+ pkgs::setCompssSelected($o->{compss}, $o->{packages}, $o->{installClass}, $o->{lang});
}
sub addToBeDone(&$) {