summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 5be19d91f..c7c279e1c 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -1,6 +1,7 @@
package install::pkgs; # $Id: pkgs.pm 267288 2010-04-02 14:49:40Z pterjan $
use strict;
+use feature 'state';
BEGIN {
# needed before "use URPM"
@@ -799,7 +800,13 @@ sub _install_raw {
log::l($msg);
log::l($msg2);
return 0 if $packages->{options}{auto};
- $::o->ask_yesorno(N("Warning"), "$msg\n\n$msg2");
+ state $do_not_ask;
+ return if $do_not_ask;
+ $::o->ask_from_({ messages => "$msg\n\n$msg2" }, [
+ { val => \$do_not_ask,
+ type => 'bool', text => N("Do not ask again"),
+ },
+ ]);
},
copy_removable => sub {
my ($medium) = @_;