From 5c418b40c0ac75beb326399b31b3533271bcf48d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 18 Sep 2000 12:26:54 +0000 Subject: no_comment --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 85e0c1b1c..0093a1441 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -67,7 +67,7 @@ translated etc. that varies from language to language).") if $o->{lang} !~ /^en/ $o->{useless_thing_accepted} = $o->ask_from_list_('', "License - no warranty", - [ __("Accept"), __("Refuse") ], "Accept") eq "Accept" or _exit(1) unless $o->{useless_thing_accepted}; + [ __("Accept"), __("Refuse") ], "Accept") eq "Accept" or $o->exit unless $o->{useless_thing_accepted}; } #------------------------------------------------------------------------------ sub selectKeyboard($) { @@ -286,7 +286,7 @@ sub choosePartitionsToFormat($$) { isSwap($_) ? type2name($_->{type}) : $_->{mntpoint}, isLoopback($_) ? $::expert && loopback::file($_) : - "(" . partition_table_raw::description($_) . ")") foreach @l; + partition_table_raw::description($_)) foreach @l; $o->ask_many_from_list_ref('', _("Choose the partitions you want to format"), [ map { $label{$_} } @l ], -- cgit v1.2.1