summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-15 10:31:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-15 10:31:05 +0000
commitcd674185891ffc0d143d5dcbd525af73eb2c5ab0 (patch)
treef6a16c431708afb78ffb9997d0a6cee5ad5e3a20
parentf7379c17842aec187c238a6346688f6c63fa6514 (diff)
downloaddrakx-backup-do-not-use-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar
drakx-backup-do-not-use-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar.gz
drakx-backup-do-not-use-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar.bz2
drakx-backup-do-not-use-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar.xz
drakx-backup-do-not-use-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.zip
(unpack_keyboards): return undef on error
-rw-r--r--perl-install/keyboard.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index b28fa55b7..a9c81e1ee 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -327,7 +327,7 @@ sub loadkeys_files {
}
sub unpack_keyboards {
- my ($k) = @_ or return;
+ my ($k) = @_; $k or return;
[ grep {
my $b = $keyboards{$_->[0]};
$b or log::l("bad keyboard $_->[0] in %keyboard::lang2keyboard");