added option --force in order not to fail with missing package in rpmdb.

1 files changed, 4 insertions, 3 deletions

diff --git a/urpme b/urpme
index ba8d3766..36c0104b 100644
--- a/urpme
+++ b/urpme
@@ -54,6 +54,7 @@ while (defined($_ = shift @ARGV)) {
     /^--no-locales$/ and do { undef *N; undef *urpm::N; *N = *urpm::N = sub { sprintf(shift @_, @_) }; next };
     /^--?auto$/ and do { $auto = 1; next };
     /^--(no-)?test$/ and do { $test = !$1; next };
+    /^--force$/ and do { $force = 1; next };
     /^--root$/ and do { push @nextargv, \$root; next };
     /^--parallel$/ and do { push @nextargv, \$parallel; next };
     /^-(.*)$/ and do { foreach (split //, $1) {
@@ -79,7 +80,7 @@ $parallel and $urpm->configure(synthesis => 'none',
 
 #- examine packages...
 my @toremove = $urpm->find_packages_to_remove($state, \@l,
-					      test => $test, matches => $matches, auto => $auto,
+					      test => $test, matches => $matches, auto => $auto, force => $force,
 					      callback_notfound => sub {
 						  my $urpm = shift @_;
 						  $urpm->{fatal}(1, (@_ > 1 ? N("unknown packages") : N("unknown package")) .
@@ -111,8 +112,8 @@ if ($test && $auto) {
 
 print STDOUT "\n".N("removing %s", join(' ', @toremove))."\n";
 @l = $parallel ?
-  $urpm->parallel_remove(\@toremove, test => $test, translate_message => 1) :
-  $urpm->install(\@toremove, {}, {}, test => $test, translate_message => 1);
+  $urpm->parallel_remove(\@toremove, test => $test, force => $force, translate_message => 1) :
+  $urpm->install(\@toremove, {}, {}, test => $test, force => $force, translate_message => 1);
 @l and $urpm->{fatal}(2, N("Removing failed") . ":\n" . join("\n",  map { "\t$_" } @l));
 
 sub toMb {