From b5c5e4c67853f148543f6fe96dc0b158ec282a19 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 30 Oct 2003 21:29:50 +0000 Subject: perl_checker --- perl-install/keyboard.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- cgit v1.2.1