diff options
| author | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2011-01-24 02:40:03 +0000 |
|---|---|---|
| committer | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2011-01-24 02:40:03 +0000 |
| commit | e2ce96b5ecef6172f1cbdb8f0d66c4739c66838f (patch) | |
| tree | 076a25305bbe0d2abdc2c999d5e11155beddce23 | |
| parent | a3b22dd32136732593591fcff02ecfdf14518a56 (diff) | |
| download | perl-URPM-e2ce96b5ecef6172f1cbdb8f0d66c4739c66838f.tar perl-URPM-e2ce96b5ecef6172f1cbdb8f0d66c4739c66838f.tar.gz perl-URPM-e2ce96b5ecef6172f1cbdb8f0d66c4739c66838f.tar.bz2 perl-URPM-e2ce96b5ecef6172f1cbdb8f0d66c4739c66838f.tar.xz perl-URPM-e2ce96b5ecef6172f1cbdb8f0d66c4739c66838f.zip | |
grrf, revert accidentally commited debugging code..
| -rw-r--r-- | URPM/Resolve.pm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index b7b676e..31b9aab 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -1375,10 +1375,8 @@ sub _set_flag_installed_and_upgrade_if_no_newer { my $upgrade = 1; $db->traverse_tag('name', [ $pkg->name ], sub { my ($p) = @_; - print "P: " . $pkg->fullname . ":\t"; $pkg->set_flag_installed; $upgrade &&= $pkg->compare_pkg($p) > 0; - print $p->fullname . " = " . $pkg->compare_pkg($p) . "\n\n\n\n\n"; }); $pkg->set_flag_upgrade($upgrade); } @@ -1389,13 +1387,10 @@ sub _no_more_recent_installed_and_providing { my ($urpm, $db, $state, $pkg, $required) = @_; my $allow = 1; - print "name: " . $pkg->name . "\n"; $db->traverse_tag('name', [ $pkg->name ], sub { my ($p) = @_; - print "\n\n\n\t $p\n\n\n"; #- allow if a less recent package is installed, if ($allow && $pkg->compare_pkg($p) <= 0) { - print "pkg: " . $pkg->fullname . " vs $p \n"; if ($required =~ /^\d+/ || $p->provides_overlap($required)) { $urpm->{debug_URPM}("not selecting " . $pkg->fullname . " since the more recent " . $p->fullname . " is installed") if $urpm->{debug_URPM}; _set_rejected_old_package($state, $pkg, $p); |