summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-06 13:04:44 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-06 13:04:44 +0000
commit03c2cbc89dd72cf74930a8bb3f66e9a40533b452 (patch)
tree45bc7f04ecd02cc6e226315b735fcdc514b0a804 /perl-install
parent90aec449547fc7edc09fa73a0231b7b2b79b511d (diff)
downloaddrakx-03c2cbc89dd72cf74930a8bb3f66e9a40533b452.tar
drakx-03c2cbc89dd72cf74930a8bb3f66e9a40533b452.tar.gz
drakx-03c2cbc89dd72cf74930a8bb3f66e9a40533b452.tar.bz2
drakx-03c2cbc89dd72cf74930a8bb3f66e9a40533b452.tar.xz
drakx-03c2cbc89dd72cf74930a8bb3f66e9a40533b452.zip
fixed to allow changing boot medium.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 8a6e5dfc1..e39f4ff38 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 $boot_medium @advertising_images);
+use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $boot_medium $current_medium $asked_medium @advertising_images);
@ISA = qw(Exporter);
%EXPORT_TAGS = (
@@ -30,13 +30,13 @@ use fs;
#- boot medium (the first medium to take into account).
$boot_medium = 1;
+$current_medium = $boot_medium;
+$asked_medium = $boot_medium;
#-######################################################################################
#- Media change variables&functions
#-######################################################################################
my $postinstall_rpms = '';
-my $current_medium = $boot_medium;
-my $asked_medium = $boot_medium;
my $cdrom;
sub useMedium($) {
#- before ejecting the first CD, there are some files to copy!