From 3a616a67fc0ef4d2a304931f40b99c75e48772f1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 12 Mar 2001 10:59:09 +0000
Subject: (loadkeys): created

---
 perl-install/commands.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 9415c7f05..fb905aaf5 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -606,6 +606,13 @@ sub bug {
     sync;
 }
 
+sub loadkeys {
+    my ($h) = getopts(\@_, "h");
+    $h || @_ != 1 and die "usage: loadkeys <keyboard>\n";
+
+    require keyboard;
+    keyboard::setup($_[0]);
+}
 
 #-######################################################################################
 #- Wonderful perl :(
-- 
cgit v1.2.1