summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 ee95f8e8c..454b346b1 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -360,7 +360,7 @@ sub KEYBOARD2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] }
sub keyboards() { map { { KEYBOARD => $_ } } keys %keyboards }
sub keyboard2one {
my ($keyboard, $nb) = @_;
- ref $keyboard or is_xbox() ? return undef : internal_error();
+ ref $keyboard or (is_xbox() ? return undef : internal_error());
my $l = $keyboards{$keyboard->{KEYBOARD}} or return;
$l->[$nb];
}
@@ -510,7 +510,7 @@ sub parse_xkb_rules() {
foreach (cat_($lst_file)) {
next if m!^\s*//! || m!^\s*$!;
chomp;
- if (/^\!\s*(\S+)$/) {
+ if (/^!\s*(\S+)$/) {
$cat = $1;
} elsif (/^\s*(\w\S*)\s+(.*)/) {
push @{$l{$cat}}, [ $1, $2 ];