summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2005-07-15 08:28:23 +0000
committerFlorent Villard <warly@mandriva.com>2005-07-15 08:28:23 +0000
commitb5098aa2b2142986feaef0d14abbe7d25ddb1b5d (patch)
treee07fcc026158ef249272d24822599e4c2e427e18 /perl-install/install_any.pm
parenta54e57ecc8da46b6a3ea0f94cb7f2ad920342f8d (diff)
downloaddrakx-b5098aa2b2142986feaef0d14abbe7d25ddb1b5d.tar
drakx-b5098aa2b2142986feaef0d14abbe7d25ddb1b5d.tar.gz
drakx-b5098aa2b2142986feaef0d14abbe7d25ddb1b5d.tar.bz2
drakx-b5098aa2b2142986feaef0d14abbe7d25ddb1b5d.tar.xz
drakx-b5098aa2b2142986feaef0d14abbe7d25ddb1b5d.zip
workarround problem in supplementary media
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 91d46f12f..c1984523b 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -471,6 +471,7 @@ sub selectSupplMedia {
prep_net_suppl_media($o) if !scalar keys %{$o->{intf}} && $suppl_method !~ /^(?:cdrom|disk)/;
local $::isWizard = 0;
local $o->{method} = $suppl_method;
+ my $postinstall_rpms_tmp = $postinstall_rpms;
if ($suppl_method eq 'cdrom') {
(my $cdromdev) = detect_devices::cdroms();
$o->ask_warn('', N("No device found")), return 'error' if !$cdromdev;
@@ -489,6 +490,7 @@ sub selectSupplMedia {
useMedium($medium_name);
#- probe for an hdlists file and then look for all hdlists listed herein
+ $postinstall_rpms = '';
eval {
pkgs::psUsingHdlists($o, $suppl_method, "/mnt/cdrom", $o->{packages}, $medium_name, sub {
my ($supplmedium) = @_;
@@ -541,6 +543,7 @@ sub selectSupplMedia {
require http if $suppl_method eq 'http';
require ftp if $suppl_method eq 'ftp';
#- first, try to find an hdlists file
+ $postinstall_rpms = '';
eval { pkgs::psUsingHdlists($o, $suppl_method, $url, $o->{packages}, $medium_name, \&setup_suppl_medium) };
if ($@) {
log::l("psUsingHdlists failed: $@");
@@ -573,6 +576,7 @@ sub selectSupplMedia {
useMedium($prev_asked_medium);
return 'error';
}
+ $postinstall_rpms = '';
my $supplmedium = pkgs::psUsingHdlist(
$suppl_method,
$o->{packages},
@@ -592,6 +596,7 @@ sub selectSupplMedia {
$suppl_method = 'error';
}
}
+ $postinstall_rpms = $postinstall_rpms_tmp;
} else {
$suppl_method = '';
}