summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-18 12:26:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-18 12:26:54 +0000
commit5c418b40c0ac75beb326399b31b3533271bcf48d (patch)
tree770b5d300b3bb24398ab06127519cc99e4418206 /perl-install/install_steps_interactive.pm
parent4bf4b23ab7fc74b6465801745ca2e8a3b52a8a21 (diff)
downloaddrakx-5c418b40c0ac75beb326399b31b3533271bcf48d.tar
drakx-5c418b40c0ac75beb326399b31b3533271bcf48d.tar.gz
drakx-5c418b40c0ac75beb326399b31b3533271bcf48d.tar.bz2
drakx-5c418b40c0ac75beb326399b31b3533271bcf48d.tar.xz
drakx-5c418b40c0ac75beb326399b31b3533271bcf48d.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
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 ],