diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-02 09:25:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-02 09:25:48 +0000 |
| commit | 755e511024f29df150d9d150d19c849e59c1e216 (patch) | |
| tree | 008a780c08366ce366c55cc3bbe0d49703f544d6 /perl-install/keyboard.pm | |
| parent | e82688c8b8f639705356d25c180ffe754c2b2c34 (diff) | |
| download | drakx-backup-do-not-use-755e511024f29df150d9d150d19c849e59c1e216.tar drakx-backup-do-not-use-755e511024f29df150d9d150d19c849e59c1e216.tar.gz drakx-backup-do-not-use-755e511024f29df150d9d150d19c849e59c1e216.tar.bz2 drakx-backup-do-not-use-755e511024f29df150d9d150d19c849e59c1e216.tar.xz drakx-backup-do-not-use-755e511024f29df150d9d150d19c849e59c1e216.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 267b0be95..bece2df93 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -5,6 +5,7 @@ use strict; use vars qw($KMAP_MAGIC %defaultKeyboards %loadKeymap); use common qw(:system :file); +use run_program; use log; @@ -93,15 +94,7 @@ sub write($$) { open F, ">$prefix/etc/sysconfig/keyboard" or die "failed to create keyboard configuration: $!"; print F "KEYTABLE=$keymap\n" or die "failed to write keyboard configuration: $!"; - # write default keymap - if (fork) { - wait; - $? == 0 or die "dumpkeys failed"; - } else { - chroot $prefix; - CORE::system("/usr/bin/dumpkeys > /etc/sysconfig/console/default.kmap 2>/dev/null"); - exit($?); - } + run_program::rooted($prefix, "dumpkeys > /etc/sysconfig/console/default.kmap") or die "dumpkeys failed"; } sub read($) { |