diff options
| -rw-r--r-- | perl-install/keyboard.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 4b67226ad..868c937dd 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -512,13 +512,13 @@ sub check { require lang; $^W = 0; - my $ok = 1; + my $ok = 0; my $warn = sub { print STDERR "$_[0]\n"; }; my $err = sub { &$warn; - $ok = 0; + $ok = 1; }; if (my @l = grep { is_empty_array_ref(lang2keyboards($_)) } lang::list()) { @@ -550,7 +550,7 @@ sub check { loadkeys_files($err); - exit($ok ? 0 : 1); + exit($ok); } 1; |