diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
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; } |