diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-12 13:08:34 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-12 13:08:34 +0000 |
commit | e258482466bbc3ce1b71d5c323e85819e58cecbc (patch) | |
tree | a4d5b387c54a0d73e8dd99ac9aabaa333a183338 | |
parent | 2c31763d63d98a15423e157ff88831adcf8faefc (diff) | |
download | perl-URPM-e258482466bbc3ce1b71d5c323e85819e58cecbc.tar perl-URPM-e258482466bbc3ce1b71d5c323e85819e58cecbc.tar.gz perl-URPM-e258482466bbc3ce1b71d5c323e85819e58cecbc.tar.bz2 perl-URPM-e258482466bbc3ce1b71d5c323e85819e58cecbc.tar.xz perl-URPM-e258482466bbc3ce1b71d5c323e85819e58cecbc.zip |
add debug message
-rw-r--r-- | URPM/Resolve.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 31f5c88..81bcd87 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -506,6 +506,12 @@ sub set_rejected { my $rv = $state->{rejected}{$pkg->fullname} ||= {}; + if ($newly_rejected) { + $urpm->{debug_URPM}("set_rejected: " . $pkg->fullname) if $urpm->{debug_URPM}; + #- keep track of size of package which are finally removed. + $rv->{size} = $pkg->size; + } + #- keep track of what causes closure. if ($options{from}) { my $closure = $rv->{closure}{$options{from}} ||= {}; @@ -522,11 +528,6 @@ sub set_rejected { and $rv->{$_} = $options{$_}; } - if ($newly_rejected) { - #- keep track of size of package which are finally removed. - $rv->{size} = $pkg->size; - } - $newly_rejected; } |