diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 8 |
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})); |