summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-03-17 21:39:40 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-03-17 21:39:40 +0100
commitcf9265e5981c5fe24c9e654935600d2348e2ba82 (patch)
tree2c9fb55e0788f229861748be91d1b9a519768113 /perl-install
parent18d2440c70b959da39cb67e5be482d453d3c2f72 (diff)
downloaddrakx-cf9265e5981c5fe24c9e654935600d2348e2ba82.tar
drakx-cf9265e5981c5fe24c9e654935600d2348e2ba82.tar.gz
drakx-cf9265e5981c5fe24c9e654935600d2348e2ba82.tar.bz2
drakx-cf9265e5981c5fe24c9e654935600d2348e2ba82.tar.xz
drakx-cf9265e5981c5fe24c9e654935600d2348e2ba82.zip
add 'deploops' option for debugging (mga#15350)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/install2.pm1
-rw-r--r--perl-install/install/pkgs.pm1
3 files changed, 3 insertions, 0 deletions
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;