diff options
Diffstat (limited to 'Rpmdrake/pkg.pm')
-rw-r--r-- | Rpmdrake/pkg.pm | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 3ddca0f8..bc2179ba 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -401,11 +401,15 @@ sub get_updates_list { # list updates including skiped ones + their deps in MandrivaUpdate: @$requested_list = uniq(@$requested_list, @$requested_strict); + #use Data::Dumper; die Dumper $urpm->{media}; + # do not pre select updates in rpmdrake: @$requested_strict = () if !$probe_only_for_updates; } sub get_pkgs { + use Benchmark; + my $t0 = new Benchmark; my ($opts) = @_; my $w = $::main_window; @@ -475,9 +479,27 @@ sub get_pkgs { my $state = {}; my (@requested, @requested_strict); + warn ">> $compute_updates || $::MODE eq 'update'\n"; if ($compute_updates || $::MODE eq 'update') { + # faster, ony look at update media for computing updates: + use Data::Dumper; output('/tmp/media.pm', Dumper [ \@update_medias, $urpm->{media} ]); + my $urpm = $urpm; + #my have side effects :-( : + $urpm = open_urpmi_db(update => 1) if !is_it_a_devel_distro(); + #local $urpm->{media} = \@update_medias; # not enough, request_packages_to_upgrade->() will find them anyway due to all packages being known + get_updates_list($urpm, $db, $state, $requested, \@requested, \@requested_strict, \%all_pkgs); } + my $t1 = new Benchmark; + my $td = timediff($t1, $t0); + print "the code took:",timestr($td),"\n"; + use Data::Dumper; + $Data::Dumper::Sortkeys = 1; + warn ">> $compute_updates || $::MODE eq 'update'\n"; + output("/tmp/pkgs_$$.pm", Dumper([ \@requested, \@requested_strict ])); + #DIE "DONE\n"; + $a; + #exit 1; $priority_state = $need_restart ? $state : undef; $priority_requested = $need_restart ? $requested : undef; @@ -512,6 +534,7 @@ sub get_pkgs { } } @updates = @requested; + #warn Dumper [ \@updates, \@requested, \@requested_strict ]; # selecting updates by default but skipped ones (MandrivaUpdate only): foreach (@requested_strict) { $all_pkgs{$_}{selected} = 1; @@ -861,7 +884,6 @@ you may now inspect some in order to take actions:"), } N("RPM transaction %d/%d"); - N("Unselect all"); N("Details"); statusbar_msg_remove($statusbar_msg_id); #- XXX maybe remove this |