summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-04-18 17:08:53 +0000
committerThierry Vignaud <tv@mageia.org>2012-04-18 17:08:53 +0000
commit273ecfe9df5facce3d9f4c2d3b4f8358b34e7f02 (patch)
tree74ab0fb1844bd9bc6f4d3cd3192c5fe7852f261d /perl-install
parent8050b798895c1c70dc79b7f0301da17035fdd77b (diff)
downloaddrakx-273ecfe9df5facce3d9f4c2d3b4f8358b34e7f02.tar
drakx-273ecfe9df5facce3d9f4c2d3b4f8358b34e7f02.tar.gz
drakx-273ecfe9df5facce3d9f4c2d3b4f8358b34e7f02.tar.bz2
drakx-273ecfe9df5facce3d9f4c2d3b4f8358b34e7f02.tar.xz
drakx-273ecfe9df5facce3d9f4c2d3b4f8358b34e7f02.zip
(_install_raw::ask_for_bad_or_missing) offer to not ask again about missing packages
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/pkgs.pm11
2 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 52b90e315..b314fb00a 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -3,6 +3,7 @@
- package installation:
o fix assuming "no" to continue on bad signatures once "do not ask
again" has been checked in
+ o offer to not ask again about missing packages
o unselect already suggested packages when performing a minimal
install if "no suggests" option was choosen (mga#5209)
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 348201c10..77aaebf9c 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -870,6 +870,17 @@ sub _install_raw {
log::l($msg);
$::o->ask_yesorno($title, $msg);
},
+ ask_for_bad_or_missing => sub {
+ my ($_title, $msg) = @_;
+ log::l($msg);
+ state $do_not_ask;
+ state $answer;
+ return $answer if $do_not_ask;
+ $answer = $::o->ask_from_({ messages => $msg }, [
+ { val => \$do_not_ask, type => 'bool', text => N("Do not ask again"),
+ },
+ ]);
+ },
# Uneeded callbacks: success_summary
});