summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-07 14:05:50 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-07 14:05:50 +0000
commitf3fee4e43d9635644491e91760336d5e5b1f7022 (patch)
treee51997b0977a8a70ae26dfaff08917dae36477cf /perl-install
parenta820561a66504ca7e5d833dfaf6bceb0dda5ee6e (diff)
downloaddrakx-f3fee4e43d9635644491e91760336d5e5b1f7022.tar
drakx-f3fee4e43d9635644491e91760336d5e5b1f7022.tar.gz
drakx-f3fee4e43d9635644491e91760336d5e5b1f7022.tar.bz2
drakx-f3fee4e43d9635644491e91760336d5e5b1f7022.tar.xz
drakx-f3fee4e43d9635644491e91760336d5e5b1f7022.zip
use of $boot_medium where the boot medium is used (default 1)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm9
1 files changed, 6 insertions, 3 deletions
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!