summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
commit73c851144720e28b21a491b6250385170db9d752 (patch)
treedcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/keyboard.pm
parent0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff)
downloaddrakx-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.pm10
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;