From 142e49b1e0baa4945b2cf1ef611304bd441b0ed5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:28:18 +0000
Subject: (parse_args,empty_packages) enable to go fast with 'tune-rpm'...

for testing (it looks like urpm::set_tune_rpm() is more effective than
what does install::pkgs::install() & _remove_raw()
---
 perl-install/install/NEWS        | 1 +
 perl-install/install/install2.pm | 1 +
 perl-install/install/pkgs.pm     | 1 +
 3 files changed, 3 insertions(+)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 17b556084..61f0982b0 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -4,6 +4,7 @@
   o remember minimal install values when clicking "previous"
 - packages installation:
   o add support for 'justdb' option
+  o enable to go fast with 'tune-rpm'...
 - refactoring
 
 Version 14.22 - 15 May 2012
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 55ab5a79d..3d42658cd 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -486,6 +486,7 @@ sub parse_args {
 	    nodmraid  => sub { $o->{partitioning}{nodmraid} = 1 },
 	    debug_urpmi  => sub { $o->{debug_urpmi} = 1 },
 	    justdb    => sub { $o->{justdb} = 1 },
+	    'tune-rpm' => sub { $o->{'tune-rpm'} = 'all' },
 	    readonly  => sub { $o->{partitioning}{readonly} = $v ne "0" },
 	    display   => sub { $o->{display} = $v },
 	    askdisplay => sub { print "Please enter the X11 display to perform the install on ? "; $o->{display} = chomp_(scalar(<STDIN>)) },
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index a9a17d4f1..7f6c8a729 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -386,6 +386,7 @@ sub empty_packages {
       defined($o_keep_unrequested_dependencies) ? $o_keep_unrequested_dependencies : 1;
     $urpm::args::options{force_transactions} = 1;
     $urpm::args::options{justdb} = $::o->{justdb};
+    urpm::set_tune_rpm($packages, $::o->{'tune-rpm'}) if $::o->{'tune-rpm'};
     $::force = 1;
     $packages->{options}{ignoresize} = 1;
     # prevent priority upgrade (redundant for now as $urpm->{root} implies disabling it:
-- 
cgit v1.2.1