diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
| commit | 73c851144720e28b21a491b6250385170db9d752 (patch) | |
| tree | dcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/keyboard.pm | |
| parent | 0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff) | |
| download | drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar.gz drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar.bz2 drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar.xz drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.zip | |
perl_checker adaptations + fixes
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 3e65df61e..a4239f73b 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -261,9 +261,9 @@ my %grp_toggles = ( #-###################################################################################### #- Functions #-###################################################################################### -sub KEYBOARDs { keys %keyboards } +sub KEYBOARDs() { keys %keyboards } sub KEYBOARD2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] } -sub keyboards { map { { KEYBOARD => $_ } } keys %keyboards } +sub keyboards() { map { { KEYBOARD => $_ } } keys %keyboards } sub keyboard2one { my ($keyboard, $nb) = @_; ref $keyboard or internal_error(); @@ -351,7 +351,7 @@ sub lang2keyboard { { KEYBOARD => $keyboards{$kb} ? $kb : 'us' }; #- handle incorrect keyboard mapping to us. } -sub from_usb { +sub from_usb() { return if $::noauto; my ($usb_kbd) = detect_devices::usbKeyboards() or return; my $country_code = detect_devices::usbKeyboard2country_code($usb_kbd) or return; @@ -478,7 +478,7 @@ sub write { } } -sub read { +sub read() { my %keyboard = getVarsFromSh("$::prefix/etc/sysconfig/keyboard") or return; if (!$keyboard{KEYBOARD}) { add2hash(\%keyboard, grep { keyboard2kmap($_) eq $keyboard{KEYTABLE} } keyboards()); @@ -488,7 +488,7 @@ sub read { keyboard2text(\%keyboard) ? \%keyboard : {}; } -sub check { +sub check() { require lang; $^W = 0; |