summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:28:18 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:28:18 +0000
commit142e49b1e0baa4945b2cf1ef611304bd441b0ed5 (patch)
tree796af514c59a5f848d2bf9ca6cca889ef7199954
parent6ec419f4e25777745f4f17bfa1a38927c9b1be6b (diff)
downloaddrakx-142e49b1e0baa4945b2cf1ef611304bd441b0ed5.tar
drakx-142e49b1e0baa4945b2cf1ef611304bd441b0ed5.tar.gz
drakx-142e49b1e0baa4945b2cf1ef611304bd441b0ed5.tar.bz2
drakx-142e49b1e0baa4945b2cf1ef611304bd441b0ed5.tar.xz
drakx-142e49b1e0baa4945b2cf1ef611304bd441b0ed5.zip
(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()
-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 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: