summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-06 16:18:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-06 16:18:42 +0000
commit02c4150b64f6c76c8e5282b4ead401c05422bcba (patch)
tree5d16a81deb0c772df70790e85f84b7031514a83e /perl-install/keyboard.pm
parent4967f59d7ab44e955a12ecb9d9797d04c02fccc6 (diff)
downloaddrakx-02c4150b64f6c76c8e5282b4ead401c05422bcba.tar
drakx-02c4150b64f6c76c8e5282b4ead401c05422bcba.tar.gz
drakx-02c4150b64f6c76c8e5282b4ead401c05422bcba.tar.bz2
drakx-02c4150b64f6c76c8e5282b4ead401c05422bcba.tar.xz
drakx-02c4150b64f6c76c8e5282b4ead401c05422bcba.zip
fix keyboard config + some cleanup
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 8ef9cadf3..4d4a64e84 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -365,7 +365,7 @@ sub write {
my ($prefix, $keyboard, $charset, $isNotDelete) = @_;
my $config = read_raw($prefix);
- put_in_hash($config, {
+ put_in_hash($config, {
KEYTABLE => keyboard2kmap($keyboard),
KBCHARSET => $charset,
});
@@ -373,7 +373,7 @@ sub write {
DISABLE_WINDOWS_KEY => bool2yesno(detect_devices::isLaptop()),
BACKSPACE => $isNotDelete ? "BackSpace" : "Delete",
});
- setVarsInSh("$prefix/etc/sysconfig/keyboard", %$config);
+ setVarsInSh("$prefix/etc/sysconfig/keyboard", $config);
run_program::rooted($prefix, "dumpkeys > /etc/sysconfig/console/default.kmap") or log::l("dumpkeys failed");
}