From f3fee4e43d9635644491e91760336d5e5b1f7022 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 7 Nov 2000 14:05:50 +0000
Subject: use of $boot_medium where the boot medium is used (default 1)

---
 perl-install/install_any.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 058d3e360..bf337d8be 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -3,7 +3,7 @@ package install_any; # $Id$
 use diagnostics;
 use strict;
 
-use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @needToCopy @needToCopyIfRequiresSatisfied);
+use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @needToCopy @needToCopyIfRequiresSatisfied $boot_medium);
 
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -42,12 +42,15 @@ rhs-printfilters lpr cups cups-drivers samba ncpfs ghostscript-utils
 xpp kups kisdn
 );
 
+#- boot medium (the first medium to take into account).
+$boot_medium = 1;
+
 #-######################################################################################
 #- Media change variables&functions
 #-######################################################################################
 my $postinstall_rpms = '';
-my $current_medium = 1;
-my $asked_medium = 1;
+my $current_medium = $boot_medium;
+my $asked_medium = $boot_medium;
 my $cdrom = undef;
 sub useMedium($) {
     #- before ejecting the first CD, there are some files to copy!
-- 
cgit v1.2.1