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;