From 2eae13baa4bba43063ce95da1748d2d3c1f4d1ee Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 29 Jan 2002 10:45:52 +0000
Subject: handle "Cancel" on language selection

---
 perl-install/install_steps_interactive.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.1