summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-09 18:45:41 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-09 18:45:41 +0000
commit0722d266abba248fcf973a18e0fec1ffdc91744b (patch)
tree10775154722000b525c590eed6e30e7a5a7f9fb1 /perl-install/install_steps_interactive.pm
parent2b0ebd1fa6ed628f8df57944f30a65f303c483e5 (diff)
downloaddrakx-0722d266abba248fcf973a18e0fec1ffdc91744b.tar
drakx-0722d266abba248fcf973a18e0fec1ffdc91744b.tar.gz
drakx-0722d266abba248fcf973a18e0fec1ffdc91744b.tar.bz2
drakx-0722d266abba248fcf973a18e0fec1ffdc91744b.tar.xz
drakx-0722d266abba248fcf973a18e0fec1ffdc91744b.zip
small update to avoid side effect of bless to HASH even if nothing results from
this.
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 3b0a1f455..5cace73cb 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -554,7 +554,7 @@ The format is the same as auto_install generated floppies."),
while (1) {
my $w = $o->wait_message(_("Package selection"), _("Loading from floppy"));
log::l("load package selection from floppy");
- my $O = eval { install_any::loadO({}, 'floppy') };
+ my $O = eval { install_any::loadO(undef, 'floppy') };
if ($@) {
$w = undef; #- close wait message.
$o->ask_okcancel('', _("Insert a floppy containing package selection"))