aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-12 13:08:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-12 13:08:34 +0000
commite258482466bbc3ce1b71d5c323e85819e58cecbc (patch)
treea4d5b387c54a0d73e8dd99ac9aabaa333a183338
parent2c31763d63d98a15423e157ff88831adcf8faefc (diff)
downloadperl-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.pm11
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;
}