From 755e511024f29df150d9d150d19c849e59c1e216 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 2 Jul 1999 09:25:48 +0000 Subject: *** empty log message *** --- perl-install/keyboard.pm | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'perl-install/keyboard.pm') 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($) { -- cgit v1.2.1