From c047aee8e84b723f6910defab8b0de8063502490 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 28 Aug 2000 16:51:57 +0000 Subject: *** empty log message *** --- perl-install/install_interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_interactive.pm') 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); -- cgit v1.2.1