summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/keyboarddrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-22 15:46:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-22 15:46:12 +0000
commit6c49b184ecbe855a6eb6437ed4cff4e76cb4d01e (patch)
tree766c2d4b8d481c21d65d754038909706a3e594b9 /perl-install/standalone/keyboarddrake
parentc5f58bce3b98ecb048178115a64b98dd725fee38 (diff)
downloaddrakx-6c49b184ecbe855a6eb6437ed4cff4e76cb4d01e.tar
drakx-6c49b184ecbe855a6eb6437ed4cff4e76cb4d01e.tar.gz
drakx-6c49b184ecbe855a6eb6437ed4cff4e76cb4d01e.tar.bz2
drakx-6c49b184ecbe855a6eb6437ed4cff4e76cb4d01e.tar.xz
drakx-6c49b184ecbe855a6eb6437ed4cff4e76cb4d01e.zip
put the question inside the interactive code
Diffstat (limited to 'perl-install/standalone/keyboarddrake')
-rwxr-xr-xperl-install/standalone/keyboarddrake8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index 5a108ed85..9b1356056 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -39,11 +39,11 @@ if (my ($kb) = grep { !/^-/ } @ARGV) {
]) or goto end;
keyboard::group_toggle_choose($in, $keyboard) or goto choose;
-}
-if ($::expert) {
- my $isNotDelete = !$in->ask_yesorno("BackSpace", N("Do you want the BackSpace to return Delete in console?"), 1);
- $keyboard->{BACKSPACE} = $isNotDelete ? "BackSpace" : "Delete";
+ if ($::expert) {
+ my $isNotDelete = !$in->ask_yesorno("BackSpace", N("Do you want the BackSpace to return Delete in console?"), 1);
+ $keyboard->{BACKSPACE} = $isNotDelete ? "BackSpace" : "Delete";
+ }
}
keyboard::setxkbmap($keyboard);