diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 04:16:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 04:16:28 +0000 |
| commit | 739c16128f23cdd586ea3f6066916c443689e4ae (patch) | |
| tree | 26ebcf9552563b7492088265fab439fd88bb2cbe /perl-install/keyboard.pm | |
| parent | cf8f2d01244a93ffd433d1824e9728ef3b0329b0 (diff) | |
| download | drakx-739c16128f23cdd586ea3f6066916c443689e4ae.tar drakx-739c16128f23cdd586ea3f6066916c443689e4ae.tar.gz drakx-739c16128f23cdd586ea3f6066916c443689e4ae.tar.bz2 drakx-739c16128f23cdd586ea3f6066916c443689e4ae.tar.xz drakx-739c16128f23cdd586ea3f6066916c443689e4ae.zip | |
create keyboard::configure_xorg() and use it
(and don't call it inside a eval, no error should occur)
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 454b346b1..b70da0746 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -630,6 +630,17 @@ sub write { } } +sub configure_xorg { + my ($keyboard) = @_; + + require Xconfig::default; + my $xfree_conf = Xconfig::xfree->read; + if (!is_empty_array_ref($xfree_conf)) { + Xconfig::default::config_keyboard($xfree_conf, $keyboard); + $xfree_conf->write; + } +} + sub read() { my %keyboard = getVarsFromSh("$::prefix/etc/sysconfig/keyboard") or return; if (!$keyboard{KEYBOARD}) { |