summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/modules/interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm
index f7b7801e9..720f4308c 100644
--- a/perl-install/modules/interactive.pm
+++ b/perl-install/modules/interactive.pm
@@ -34,7 +34,8 @@ sub load_category {
@l = modules::load_category($category, $wait_message, 'force') if !@l && $b_at_least_one;
}
if (my @err = grep { $_ } map { $_->{error} } @l) {
- $in->ask_warn('', join("\n", @err));
+ my $return = $in->ask_warn('', join("\n", @err));
+ $in->exit(1) if !defined($return);
}
return @l if $b_auto && (@l || !$b_at_least_one);