diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-09 12:56:08 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-09 12:56:08 +0000 |
| commit | 39f380e94aeea93d3ccd1e38fc24f75f07471b8e (patch) | |
| tree | 44c49b455723876cca8c30f87c84fff2c35492ed /perl-install | |
| parent | f46ce603ba925c250a88a77825ed9d93e4744487 (diff) | |
| download | drakx-39f380e94aeea93d3ccd1e38fc24f75f07471b8e.tar drakx-39f380e94aeea93d3ccd1e38fc24f75f07471b8e.tar.gz drakx-39f380e94aeea93d3ccd1e38fc24f75f07471b8e.tar.bz2 drakx-39f380e94aeea93d3ccd1e38fc24f75f07471b8e.tar.xz drakx-39f380e94aeea93d3ccd1e38fc24f75f07471b8e.zip | |
simplify
Diffstat (limited to 'perl-install')
| -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; |