From a875cfd4bba2c24d68cb37bd7fbdbd8ca7a7157b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 13 Sep 2007 07:40:52 +0000 Subject: reverting commit (13 March 2006): "Passing bundle option, even if that does nothing for now" since it does nothing. will revert if/when support is really implemented --- urpm/select.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'urpm/select.pm') diff --git a/urpm/select.pm b/urpm/select.pm index 7f234925..8f6c8f3f 100644 --- a/urpm/select.pm +++ b/urpm/select.pm @@ -323,7 +323,6 @@ sub get_preferred { #- find packages to remove. #- options: -#- bundle #- callback_base #- callback_fuzzy #- callback_notfound @@ -349,7 +348,7 @@ sub find_packages_to_remove { $db->traverse_tag('name', [ $n ], sub { my ($p) = @_; $p->fullname eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -362,7 +361,7 @@ sub find_packages_to_remove { my ($p) = @_; my ($name, $version, $release) = $p->fullname; "$name-$version-$release" eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -375,7 +374,7 @@ sub find_packages_to_remove { my ($p) = @_; my ($name, $version) = $p->fullname; "$name-$version" eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -386,7 +385,7 @@ sub find_packages_to_remove { $db->traverse_tag('name', [ $_ ], sub { my ($p) = @_; $p->name eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, scalar $p->fullname; $found = 1; }); @@ -413,7 +412,7 @@ sub find_packages_to_remove { my ($p) = @_; my $f = scalar $p->fullname; $f =~ $qmatch or return; - $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); + $urpm->resolve_rejected($db, $state, $p, removed => 1); push @m, $f; }); $urpm->{log}("...done, packages found [" . join(' ', @m) . "]"); -- cgit v1.2.1