summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-12 10:59:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-12 10:59:09 +0000
commit3a616a67fc0ef4d2a304931f40b99c75e48772f1 (patch)
tree0cc922fc0d579afdbe062eaaecfbbd5d1007428e
parentc7381f5440417d5da37b9710e270fbca03baedad (diff)
downloaddrakx-backup-do-not-use-3a616a67fc0ef4d2a304931f40b99c75e48772f1.tar
drakx-backup-do-not-use-3a616a67fc0ef4d2a304931f40b99c75e48772f1.tar.gz
drakx-backup-do-not-use-3a616a67fc0ef4d2a304931f40b99c75e48772f1.tar.bz2
drakx-backup-do-not-use-3a616a67fc0ef4d2a304931f40b99c75e48772f1.tar.xz
drakx-backup-do-not-use-3a616a67fc0ef4d2a304931f40b99c75e48772f1.zip
(loadkeys): created
-rw-r--r--perl-install/commands.pm7
1 files changed, 7 insertions, 0 deletions
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 :(