summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-29 10:45:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-29 10:45:52 +0000
commit2eae13baa4bba43063ce95da1748d2d3c1f4d1ee (patch)
treea6b54d77dd68e7b9b2e86a20871fff292ddb8415 /perl-install/install_steps_interactive.pm
parentad9774077a4b0d15136da5df9451163333300af7 (diff)
downloaddrakx-2eae13baa4bba43063ce95da1748d2d3c1f4d1ee.tar
drakx-2eae13baa4bba43063ce95da1748d2d3c1f4d1ee.tar.gz
drakx-2eae13baa4bba43063ce95da1748d2d3c1f4d1ee.tar.bz2
drakx-2eae13baa4bba43063ce95da1748d2d3c1f4d1ee.tar.xz
drakx-2eae13baa4bba43063ce95da1748d2d3c1f4d1ee.zip
handle "Cancel" on language selection
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 534550f1b..caeac299c 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -81,7 +81,8 @@ sub charsetChanged {}
sub selectLanguage {
my ($o) = @_;
- $o->{lang} = any::selectLanguage($o, $o->{lang}, $o->{langs} ||= {});
+ $o->{lang} = any::selectLanguage($o, $o->{lang}, $o->{langs} ||= {})
+ || return $o->ask_yesorno('', _("Do you really want to leave the installation?")) ? $o->exit : &selectLanguage;
install_steps::selectLanguage($o);
$o->charsetChanged;