summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-22 12:49:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-22 12:49:17 +0000
commit95e34052c0875c208ff3455c478dc6585579cc1a (patch)
treea25834a168d6ef5bfb14af3eb3ebdfe5e966618a /perl-install/keyboard.pm
parent4e4525861adc83f9f2871fc0fc823b3494881157 (diff)
downloaddrakx-95e34052c0875c208ff3455c478dc6585579cc1a.tar
drakx-95e34052c0875c208ff3455c478dc6585579cc1a.tar.gz
drakx-95e34052c0875c208ff3455c478dc6585579cc1a.tar.bz2
drakx-95e34052c0875c208ff3455c478dc6585579cc1a.tar.xz
drakx-95e34052c0875c208ff3455c478dc6585579cc1a.zip
change the message
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index db38079e3..b93e41cab 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -499,13 +499,13 @@ sub check {
!$_ || $keyboards{$_} or $err->("invalid keyboard $_ in \%usb2drakxkbd keyboard.pm") foreach values %usb2drakxkbd;
my @xkb_groups = map { if_(/grp:(\S+)/, $1) } cat_('/usr/lib/X11/xkb/rules/xfree86.lst');
- $err->("unknown xkb group toggle '$_' in \%kbdgrptoggle") foreach difference2([ keys %kbdgrptoggle ], \@xkb_groups);
+ $err->("invalid xkb group toggle '$_' in \%kbdgrptoggle") foreach difference2([ keys %kbdgrptoggle ], \@xkb_groups);
$warn->("unused xkb group toggle '$_'") foreach difference2(\@xkb_groups, [ keys %kbdgrptoggle ]);
my @xkb_layouts = (#- (map { (split)[0] } grep { /^! layout/ .. /^\s*$/ } cat_('/usr/lib/X11/xkb/rules/xfree86.lst')),
all('/usr/lib/X11/xkb/symbols'),
(map { (split)[2] } cat_('/usr/lib/X11/xkb/symbols.dir')));
- $err->("unknown xkb layout $_") foreach difference2([ map { keyboard2xkb($_) } keyboards() ], \@xkb_layouts);
+ $err->("invalid xkb layout $_") foreach difference2([ map { keyboard2xkb($_) } keyboards() ], \@xkb_layouts);
loadkeys_files($err);