diff options
author | Francois Pons <fpons@mandriva.com> | 2000-11-07 14:05:50 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-11-07 14:05:50 +0000 |
commit | f3fee4e43d9635644491e91760336d5e5b1f7022 (patch) | |
tree | e51997b0977a8a70ae26dfaff08917dae36477cf /perl-install | |
parent | a820561a66504ca7e5d833dfaf6bceb0dda5ee6e (diff) | |
download | drakx-backup-do-not-use-f3fee4e43d9635644491e91760336d5e5b1f7022.tar drakx-backup-do-not-use-f3fee4e43d9635644491e91760336d5e5b1f7022.tar.gz drakx-backup-do-not-use-f3fee4e43d9635644491e91760336d5e5b1f7022.tar.bz2 drakx-backup-do-not-use-f3fee4e43d9635644491e91760336d5e5b1f7022.tar.xz drakx-backup-do-not-use-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.pm | 9 |
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! |