summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-20 23:03:06 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-20 23:03:06 +0000
commita87392ce672688850dc174df6a39c7fe745175fa (patch)
treee6031e42126b35e7c5aef402cf3065263d422868 /perl-install/install_steps_interactive.pm
parent7fe5f8b71356459a6062df5fca0236a502165b8c (diff)
downloaddrakx-a87392ce672688850dc174df6a39c7fe745175fa.tar
drakx-a87392ce672688850dc174df6a39c7fe745175fa.tar.gz
drakx-a87392ce672688850dc174df6a39c7fe745175fa.tar.bz2
drakx-a87392ce672688850dc174df6a39c7fe745175fa.tar.xz
drakx-a87392ce672688850dc174df6a39c7fe745175fa.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 98b7df3e5..c8eee3ac3 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -576,10 +576,10 @@ failures. Would you like to create a bootdisk for your system?"), $o->{mkbootdis
} else {
@l or die _("Sorry, no floppy drive available");
- $o->{mkbootdisk} = $o->ask_from_list('',
- _("Choose the floppy drive you want to use to make the bootdisk"),
- [ @l, "Cancel" ], $o->{mkbootdisk});
- return if $o->{mkbootdisk} eq "Cancel";
+ $o->{mkbootdisk} = $o->ask_from_list_('',
+ _("Choose the floppy drive you want to use to make the bootdisk"),
+ [ @l, 'Cancel' ], $o->{mkbootdisk});
+ return if $o->{mkbootdisk} eq 'Cancel';
}
$o->ask_warn('', _("Insert a floppy in drive %s", $o->{mkbootdisk}));