summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-02 03:19:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-02 03:19:22 +0000
commit5a97d4485abc4b903a6bda0491039fc8ec475b09 (patch)
tree0bb1106187d52ee3dc2477791566665ecddbada8
parenteba9c3257866392f91132c338fbe59a4b01fa119 (diff)
downloaddrakx-5a97d4485abc4b903a6bda0491039fc8ec475b09.tar
drakx-5a97d4485abc4b903a6bda0491039fc8ec475b09.tar.gz
drakx-5a97d4485abc4b903a6bda0491039fc8ec475b09.tar.bz2
drakx-5a97d4485abc4b903a6bda0491039fc8ec475b09.tar.xz
drakx-5a97d4485abc4b903a6bda0491039fc8ec475b09.zip
make perl_checker happy
-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 ];