summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-04-09 09:34:36 +0000
committerFrancois Pons <fpons@mandriva.com>2001-04-09 09:34:36 +0000
commit3dc5ff158193c357886fc8ab8b9d5ecdc10aba22 (patch)
treee40ab43524801e701f8ca0f5646feec6af4b2e86 /perl-install/standalone
parent00acd7938b4d76d93a90aae1dfa0e670678ab8b1 (diff)
downloaddrakx-backup-do-not-use-3dc5ff158193c357886fc8ab8b9d5ecdc10aba22.tar
drakx-backup-do-not-use-3dc5ff158193c357886fc8ab8b9d5ecdc10aba22.tar.gz
drakx-backup-do-not-use-3dc5ff158193c357886fc8ab8b9d5ecdc10aba22.tar.bz2
drakx-backup-do-not-use-3dc5ff158193c357886fc8ab8b9d5ecdc10aba22.tar.xz
drakx-backup-do-not-use-3dc5ff158193c357886fc8ab8b9d5ecdc10aba22.zip
fixed exit on cancel (should cause trouble in DrakConf only).
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/keyboarddrake65
1 files changed, 33 insertions, 32 deletions
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index 75a8a91cf..e1177c148 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -29,38 +29,39 @@ $keyboard ||= $in->ask_from_listf_(_("Keyboard"),
_("Please, choose your keyboard layout."),
\&keyboard::keyboard2text,
[ keyboard::keyboards() ],
- keyboard::read()) or $in->exit(0);
-
-keyboard::keyboard2text($keyboard) or die "bad keyboard $keyboard\n";
-
-my $isNotDelete = $::expert && !$in->ask_yesorno("BackSpace", _("Do you want the BackSpace to return Delete in console?"), 1);
-
-my $kmap = keyboard::keyboard2kmap($keyboard);
-`loadkeys $kmap`;
-
-my $xkb = keyboard::keyboard2xkb($keyboard);
-`setxkbmap $xkb`;
-
-my $f = "/etc/X11/XF86Config";
-my $g = "/etc/X11/XF86Config-4";
-
-substInFile {
- if (/^Section\s+"Keyboard"/ .. /^EndSection/) {
- s|^(\s*XkbLayout\s+).*|$1"$xkb"|
- and $_ .= join '', map { " $_\n" } @{$xkb_options{$xkb} || []};
- s,^(\s*(XkbVariant|XkbOptions)\s+).*,,; # remove existing one
- }
-} $f if -e $f && !$::testing;
-
-substInFile {
- if (/Identifier\s+"Keyboard1"/ .. /^EndSection/) {
- s|^(\s*Option\s+"XkbLayout"\s+).*|$1"$xkb"|
- and $_ .= join '', map { /(\S+)(.*)/; qq( Option "$1" $2\n) } @{$xkb_options{$xkb} || []};
- s,^(\s*Option\s+"(XkbVariant|XkbOptions)"\s+).*,,; # remove existing one
- }
-} $g if -e $g && !$::testing;
-
-keyboard::write('', $keyboard, $isNotDelete);
+ keyboard::read());
+if ($keyboard) {
+ keyboard::keyboard2text($keyboard) or die "bad keyboard $keyboard\n";
+
+ my $isNotDelete = $::expert && !$in->ask_yesorno("BackSpace", _("Do you want the BackSpace to return Delete in console?"), 1);
+
+ my $kmap = keyboard::keyboard2kmap($keyboard);
+ `loadkeys $kmap`;
+
+ my $xkb = keyboard::keyboard2xkb($keyboard);
+ `setxkbmap $xkb`;
+
+ my $f = "/etc/X11/XF86Config";
+ my $g = "/etc/X11/XF86Config-4";
+
+ substInFile {
+ if (/^Section\s+"Keyboard"/ .. /^EndSection/) {
+ s|^(\s*XkbLayout\s+).*|$1"$xkb"|
+ and $_ .= join '', map { " $_\n" } @{$xkb_options{$xkb} || []};
+ s,^(\s*(XkbVariant|XkbOptions)\s+).*,,; # remove existing one
+ }
+ } $f if -e $f && !$::testing;
+
+ substInFile {
+ if (/Identifier\s+"Keyboard1"/ .. /^EndSection/) {
+ s|^(\s*Option\s+"XkbLayout"\s+).*|$1"$xkb"|
+ and $_ .= join '', map { /(\S+)(.*)/; qq( Option "$1" $2\n) } @{$xkb_options{$xkb} || []};
+ s,^(\s*Option\s+"(XkbVariant|XkbOptions)"\s+).*,,; # remove existing one
+ }
+ } $g if -e $g && !$::testing;
+
+ keyboard::write('', $keyboard, $isNotDelete);
+}
if ($::isEmbedded) {
kill(USR1, $::CCPID);