diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-06-24 10:15:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-06-24 10:15:52 +0000 |
| commit | 2a0bbee296669686a3332e6595bc1021757249b0 (patch) | |
| tree | f20cb8e3fe48e91f0184f16f4f773ba4b0dee9dc /perl-install/keyboard.pm | |
| parent | 13c1505ba44c0d57a4d5bdb6ce62267a34f9b510 (diff) | |
| download | drakx-2a0bbee296669686a3332e6595bc1021757249b0.tar drakx-2a0bbee296669686a3332e6595bc1021757249b0.tar.gz drakx-2a0bbee296669686a3332e6595bc1021757249b0.tar.bz2 drakx-2a0bbee296669686a3332e6595bc1021757249b0.tar.xz drakx-2a0bbee296669686a3332e6595bc1021757249b0.zip | |
no_comment
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 8 |
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"); } |