From cf9265e5981c5fe24c9e654935600d2348e2ba82 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 17 Mar 2015 21:39:40 +0100
Subject: add 'deploops' option for debugging (mga#15350)

---
 perl-install/install/NEWS        | 1 +
 perl-install/install/install2.pm | 1 +
 perl-install/install/pkgs.pm     | 1 +
 3 files changed, 3 insertions(+)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1bd026a92..681c4d833 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
 - fix mis-detecting some mobile broadband modems (mga#12492)
+- add 'deploops' option for debugging (mga#15350)
 
 Version 16.67 - 5 March 2015
 
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 9080d0cb9..2e50db4d0 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -556,6 +556,7 @@ sub parse_args {
 
 	    # urpmi options:
 	    debug_urpmi  => sub { $o->{debug_urpmi} = 1 },
+	    deploops     => sub { $o->{deploops} = 1 },
 	    justdb    => sub { $o->{justdb} = 1 },
 	    'tune-rpm' => sub { $o->{'tune-rpm'} = 'all' },
 
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 75f4f4cea..fca5b6c19 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -422,6 +422,7 @@ sub empty_packages {
     $packages->{options}{'priority-upgrade'} = undef;
     # log $trans->add() faillure; FIXME: should we override *urpm::msg::sys_log?
     $packages->{debug} = $packages->{debug_URPM} = \&log::l;
+    $urpm::args::options{deploops} = $::o->{deploops};
     $packages->{options}{'curl-options'} = $::o->{curl_options} if $::o->{curl_options};
 
     $packages;
-- 
cgit v1.2.1