summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-06 09:38:03 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-06 09:38:03 +0000
commit68056bcdfaa733cabef68e1cac5104842a2a7e75 (patch)
tree1574693c14b4985e2cb81049b52a0a1564cbce73 /perl-install/pkgs.pm
parentf938169defca430389beefecf789b9c00eda854a (diff)
downloaddrakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.gz
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.bz2
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.xz
drakx-backup-do-not-use-68056bcdfaa733cabef68e1cac5104842a2a7e75.zip
Make the network supplementary media probe able to find an hdlists file
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 87f29b11f..c0105b055 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -380,7 +380,7 @@ sub psUpdateHdlistsDeps {
sub psUsingHdlists {
my ($o, $method, $o_hdlistsfile, $o_packages, $o_initialmedium) = @_;
my $prefix = $o->{prefix};
- my $listf = install_any::getFile($o_hdlistsfile || 'media/media_info/hdlists')
+ my $listf = install_any::getFile($o_hdlistsfile . 'media/media_info/hdlists')
or die "no hdlists found";
my ($suppl_CDs, $deselectionAllowed) = (0, 0);
if (!$o_packages) {
@@ -406,7 +406,7 @@ sub psUsingHdlists {
m/^\s*(noauto:)?(hdlist\S*\.cz2?)\s+(\S+)\s*(.*)$/ or die qq(invalid hdlist description "$_" in hdlists file);
push @hdlists, [ $2, $medium_name, $3, $4, !$1,
#- hdlist path, suppl CDs are mounted on /mnt/cdrom :
- $cdsuppl ? "/mnt/cdrom/media/media_info/$2" : undef,
+ $o_hdlistsfile ? "$o_hdlistsfile/media/media_info/$2" : undef,
];
$cdsuppl ? ($medium_name = ($medium_name + 1) . 's') : ++$medium_name;
}