diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-06 09:38:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-06 09:38:03 +0000 |
| commit | 68056bcdfaa733cabef68e1cac5104842a2a7e75 (patch) | |
| tree | 1574693c14b4985e2cb81049b52a0a1564cbce73 /perl-install/pkgs.pm | |
| parent | f938169defca430389beefecf789b9c00eda854a (diff) | |
| download | drakx-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar drakx-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.gz drakx-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.bz2 drakx-68056bcdfaa733cabef68e1cac5104842a2a7e75.tar.xz drakx-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.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; } |