summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-08 16:58:43 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-08 16:58:43 +0000
commite92750d42412811240e6e9bf9a82b965f5ef8bd4 (patch)
tree53438c40787be409db02d3c5b26e4f9233e42734 /perl-install/install_any.pm
parentb435c66c44391acc220decf66ae57bb1086b9004 (diff)
downloaddrakx-backup-do-not-use-e92750d42412811240e6e9bf9a82b965f5ef8bd4.tar
drakx-backup-do-not-use-e92750d42412811240e6e9bf9a82b965f5ef8bd4.tar.gz
drakx-backup-do-not-use-e92750d42412811240e6e9bf9a82b965f5ef8bd4.tar.bz2
drakx-backup-do-not-use-e92750d42412811240e6e9bf9a82b965f5ef8bd4.tar.xz
drakx-backup-do-not-use-e92750d42412811240e6e9bf9a82b965f5ef8bd4.zip
Supplementary cd-roms weren't marked as supplementary. Fix this.
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index cd7079970..f5b01e351 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -474,7 +474,12 @@ sub selectSupplMedia {
useMedium($medium_name);
#- probe for an hdlists file and then look for all hdlists listed herein
- eval { pkgs::psUsingHdlists($o, $suppl_method, "/mnt/cdrom", $o->{packages}, $medium_name) };
+ eval {
+ pkgs::psUsingHdlists($o, $suppl_method, "/mnt/cdrom", $o->{packages}, $medium_name, sub {
+ my ($supplmedium) = @_;
+ $supplmedium->{issuppl} = 1;
+ });
+ };
log::l("psUsingHdlists failed: $@") if $@;
#- copy latest compssUsers.pl and rpmsrate somewhere locally