diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-12 10:59:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-12 10:59:09 +0000 |
| commit | 3a616a67fc0ef4d2a304931f40b99c75e48772f1 (patch) | |
| tree | 0cc922fc0d579afdbe062eaaecfbbd5d1007428e | |
| parent | c7381f5440417d5da37b9710e270fbca03baedad (diff) | |
| download | drakx-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.pm | 7 |
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 :( |