summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-09 13:12:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-09 13:12:01 +0000
commitebc9309f444bb7aed89b96365d9014aa625792fc (patch)
treead83a05f5b81e3f6eec136821790d7524975f471 /perl-install
parent90679011a05cdc1e9c253c104c85701b6d285798 (diff)
downloaddrakx-backup-do-not-use-ebc9309f444bb7aed89b96365d9014aa625792fc.tar
drakx-backup-do-not-use-ebc9309f444bb7aed89b96365d9014aa625792fc.tar.gz
drakx-backup-do-not-use-ebc9309f444bb7aed89b96365d9014aa625792fc.tar.bz2
drakx-backup-do-not-use-ebc9309f444bb7aed89b96365d9014aa625792fc.tar.xz
drakx-backup-do-not-use-ebc9309f444bb7aed89b96365d9014aa625792fc.zip
make return value name more explicit
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/keyboard.pm6
1 files changed, 3 insertions, 3 deletions
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;