summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-08-28 16:51:57 +0000
committerFrancois Pons <fpons@mandriva.com>2000-08-28 16:51:57 +0000
commitc047aee8e84b723f6910defab8b0de8063502490 (patch)
treeb12ebc2155d800c65755beee26ab7c8c4cbc9e4d /perl-install/install_interactive.pm
parenta5be3a7fffa550e22e2a56ee40151b69c00afe8a (diff)
downloaddrakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar.gz
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar.bz2
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.tar.xz
drakx-backup-do-not-use-c047aee8e84b723f6910defab8b0de8063502490.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r--perl-install/install_interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 62cd9858c..83b6c0a16 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -182,7 +182,7 @@ sub setup_thiskind {
if ($allow_probe) {
@l = $o->load_thiskind($type);
- if (my @err = grep { $_->{error} } map { $_->{error} } @l) {
+ if (my @err = grep { $_ } map { $_->{error} } @l) {
$o->ask_warn('', join("\n", @err));
}
return @l if $auto && (@l || !$at_least_one);