From 03c2cbc89dd72cf74930a8bb3f66e9a40533b452 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 6 Sep 2002 13:04:44 +0000
Subject: fixed to allow changing boot medium.

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

(limited to 'perl-install')

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!
-- 
cgit v1.2.1