summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-10-30 21:29:50 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-10-30 21:29:50 +0000
commitb5c5e4c67853f148543f6fe96dc0b158ec282a19 (patch)
treeb6f33ccde299e139693cbf509a44f7100bec8b25
parentebed3a49240ba0dfba86d2b530c92aeff2b40500 (diff)
downloaddrakx-b5c5e4c67853f148543f6fe96dc0b158ec282a19.tar
drakx-b5c5e4c67853f148543f6fe96dc0b158ec282a19.tar.gz
drakx-b5c5e4c67853f148543f6fe96dc0b158ec282a19.tar.bz2
drakx-b5c5e4c67853f148543f6fe96dc0b158ec282a19.tar.xz
drakx-b5c5e4c67853f148543f6fe96dc0b158ec282a19.zip
perl_checker
-rw-r--r--perl-install/keyboard.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 5561e8da0..695c8747b 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -551,7 +551,7 @@ sub check() {
}
}
/SKIP/ || $keyboards{$_} or $err->("invalid keyboard $_ in \@usb2keyboard keyboard.pm") foreach @usb2keyboard;
- $usb2keyboard[0x21] eq 'us' or $err->("\@usb2keyboard is badly modified, 0x21 is not us keyboard");
+ $usb2keyboard[0x21] eq 'us' or $err->('@usb2keyboard is badly modified, 0x21 is not us keyboard');
my @xkb_groups = map { if_(/grp:(\S+)/, $1) } cat_('/usr/lib/X11/xkb/rules/xfree86.lst');
$err->("invalid xkb group toggle '$_' in \%grp_toggles") foreach difference2([ keys %grp_toggles ], \@xkb_groups);