diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-09 13:12:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-09 13:12:01 +0000 |
| commit | ebc9309f444bb7aed89b96365d9014aa625792fc (patch) | |
| tree | ad83a05f5b81e3f6eec136821790d7524975f471 /perl-install/keyboard.pm | |
| parent | 90679011a05cdc1e9c253c104c85701b6d285798 (diff) | |
| download | drakx-ebc9309f444bb7aed89b96365d9014aa625792fc.tar drakx-ebc9309f444bb7aed89b96365d9014aa625792fc.tar.gz drakx-ebc9309f444bb7aed89b96365d9014aa625792fc.tar.bz2 drakx-ebc9309f444bb7aed89b96365d9014aa625792fc.tar.xz drakx-ebc9309f444bb7aed89b96365d9014aa625792fc.zip | |
make return value name more explicit
Diffstat (limited to 'perl-install/keyboard.pm')
| -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 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; |