From 0722d266abba248fcf973a18e0fec1ffdc91744b Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 9 Aug 2002 18:45:41 +0000 Subject: small update to avoid side effect of bless to HASH even if nothing results from this. --- perl-install/install_steps_interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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")) -- cgit v1.2.1