summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-24 10:15:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-24 10:15:52 +0000
commit2a0bbee296669686a3332e6595bc1021757249b0 (patch)
treef20cb8e3fe48e91f0184f16f4f773ba4b0dee9dc /perl-install/keyboard.pm
parent13c1505ba44c0d57a4d5bdb6ce62267a34f9b510 (diff)
downloaddrakx-backup-do-not-use-2a0bbee296669686a3332e6595bc1021757249b0.tar
drakx-backup-do-not-use-2a0bbee296669686a3332e6595bc1021757249b0.tar.gz
drakx-backup-do-not-use-2a0bbee296669686a3332e6595bc1021757249b0.tar.bz2
drakx-backup-do-not-use-2a0bbee296669686a3332e6595bc1021757249b0.tar.xz
drakx-backup-do-not-use-2a0bbee296669686a3332e6595bc1021757249b0.zip
no_comment
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 894adf130..6ece6b7c0 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -268,10 +268,12 @@ sub setup($) {
eval { run_program::run('xmodmap', $f) } unless $::testing || !$f;
}
-sub write($$;$) {
- my ($prefix, $keyboard, $isNotDelete) = @_;
+sub write($$$;$) {
+ my ($prefix, $keyboard, $charset, $isNotDelete) = @_;
- setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => keyboard2kmap($keyboard), $isNotDelete ? () : (BACKSPACE => "Delete") });
+ setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => keyboard2kmap($keyboard),
+ KBCHARSET => $charset,
+ $isNotDelete ? () : (BACKSPACE => "Delete") });
run_program::rooted($prefix, "dumpkeys > /etc/sysconfig/console/default.kmap") or log::l("dumpkeys failed");
}