From e92750d42412811240e6e9bf9a82b965f5ef8bd4 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 8 Apr 2005 16:58:43 +0000
Subject: Supplementary cd-roms weren't marked as supplementary. Fix this.

---
 perl-install/install_any.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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
-- 
cgit v1.2.1