From 4d5bc7f97d665dd89d2a5f983e0be18dced07251 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 13 Mar 2006 10:19:11 +0000 Subject: Passing bundle option, even if that does nothing for now --- urpm.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index 4684091c..adc36c04 100644 --- a/urpm.pm +++ b/urpm.pm @@ -3108,7 +3108,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); + $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); push @m, scalar $p->fullname; $found = 1; }); @@ -3120,7 +3120,7 @@ sub find_packages_to_remove { $db->traverse_tag('name', [ $n ], sub { my ($p) = @_; join('-', ($p->fullname)[0..2]) eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, removed => 1); + $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); push @m, scalar $p->fullname; $found = 1; }); @@ -3132,7 +3132,7 @@ sub find_packages_to_remove { $db->traverse_tag('name', [ $n ], sub { my ($p) = @_; join('-', ($p->fullname)[0..1]) eq $_ or return; - $urpm->resolve_rejected($db, $state, $p, removed => 1); + $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); push @m, scalar $p->fullname; $found = 1; }); @@ -3143,7 +3143,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); + $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); push @m, scalar $p->fullname; $found = 1; }); @@ -3169,7 +3169,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); + $urpm->resolve_rejected($db, $state, $p, removed => 1, bundle => $options{bundle}); push @m, $f; }); -- cgit v1.2.1