From ebc9309f444bb7aed89b96365d9014aa625792fc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 9 Jan 2003 13:12:01 +0000
Subject: make return value name more explicit

---
 perl-install/keyboard.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 868c937dd..f51e19e4b 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -512,13 +512,13 @@ sub check {
     require lang;
     $^W = 0;
 
-    my $ok = 0;
+    my $not_ok = 0;
     my $warn = sub {
 	print STDERR "$_[0]\n";
     };
     my $err = sub {
 	&$warn;
-	$ok = 1;
+	$not_ok = 1;
     };
 
     if (my @l = grep { is_empty_array_ref(lang2keyboards($_)) } lang::list()) {
@@ -550,7 +550,7 @@ sub check {
 
     loadkeys_files($err);
 
-    exit($ok);
+    exit($not_ok);
 }
 
 1;
-- 
cgit v1.2.1