From 273ecfe9df5facce3d9f4c2d3b4f8358b34e7f02 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 18 Apr 2012 17:08:53 +0000
Subject: (_install_raw::ask_for_bad_or_missing) offer to not ask again about
 missing packages

---
 perl-install/install/NEWS    |  1 +
 perl-install/install/pkgs.pm | 11 +++++++++++
 2 files changed, 12 insertions(+)

(limited to 'perl-install/install')

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
     });
           
-- 
cgit v1.2.1