diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-30 21:29:50 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-30 21:29:50 +0000 |
| commit | b5c5e4c67853f148543f6fe96dc0b158ec282a19 (patch) | |
| tree | b6f33ccde299e139693cbf509a44f7100bec8b25 | |
| parent | ebed3a49240ba0dfba86d2b530c92aeff2b40500 (diff) | |
| download | drakx-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.pm | 2 |
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); |