diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:28:18 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:28:18 +0000 |
| commit | abe810fe290eaba12a4e9036aedcf6581180389e (patch) | |
| tree | 796af514c59a5f848d2bf9ca6cca889ef7199954 /perl-install | |
| parent | 74420e9c816fa82492c04cb1e0bab516eef3f52e (diff) | |
| download | drakx-backup-do-not-use-abe810fe290eaba12a4e9036aedcf6581180389e.tar drakx-backup-do-not-use-abe810fe290eaba12a4e9036aedcf6581180389e.tar.gz drakx-backup-do-not-use-abe810fe290eaba12a4e9036aedcf6581180389e.tar.bz2 drakx-backup-do-not-use-abe810fe290eaba12a4e9036aedcf6581180389e.tar.xz drakx-backup-do-not-use-abe810fe290eaba12a4e9036aedcf6581180389e.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()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/install2.pm | 1 | ||||
| -rw-r--r-- | perl-install/install/pkgs.pm | 1 |
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: |