diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-02 02:46:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-02 02:46:14 +0000 |
| commit | eba9c3257866392f91132c338fbe59a4b01fa119 (patch) | |
| tree | d0127870b0210f687f4c456ea87e4f2c50eea0dc /perl-install/standalone/keyboarddrake | |
| parent | c7f7e91919ee72b885d5b3253c608393279945ae (diff) | |
| download | drakx-eba9c3257866392f91132c338fbe59a4b01fa119.tar drakx-eba9c3257866392f91132c338fbe59a4b01fa119.tar.gz drakx-eba9c3257866392f91132c338fbe59a4b01fa119.tar.bz2 drakx-eba9c3257866392f91132c338fbe59a4b01fa119.tar.xz drakx-eba9c3257866392f91132c338fbe59a4b01fa119.zip | |
- create keyboard::default() and use it
- it uses keyboard::from_DMI() to get XkbModel when possible
Diffstat (limited to 'perl-install/standalone/keyboarddrake')
| -rwxr-xr-x | perl-install/standalone/keyboarddrake | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake index 5a42cef56..d4bde7e10 100755 --- a/perl-install/standalone/keyboarddrake +++ b/perl-install/standalone/keyboarddrake @@ -13,7 +13,7 @@ use c; require_root_capability(); my $in; -my $keyboard = keyboard::read(); +my $keyboard = keyboard::read() || keyboard::default(); if (my ($kb) = grep { !/^-/ } @ARGV) { keyboard::KEYBOARD2text($kb) or die "bad keyboard $kb\n"; $keyboard->{KEYBOARD} = $kb; |