diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-09-06 13:04:44 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-09-06 13:04:44 +0000 |
| commit | 03c2cbc89dd72cf74930a8bb3f66e9a40533b452 (patch) | |
| tree | 45bc7f04ecd02cc6e226315b735fcdc514b0a804 /perl-install | |
| parent | 90aec449547fc7edc09fa73a0231b7b2b79b511d (diff) | |
| download | drakx-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.pm | 6 |
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! |