- quotemeta arguments

- ensure "rpm -e" is not localized when looking for "package XXX is not installed" and "XXX is needed by XXX"

1 files changed, 2 insertions, 2 deletions

diff --git a/urpme b/urpme
index 85394743..50610fc4 100644
--- a/urpme
+++ b/urpme
@@ -34,7 +34,7 @@ if (!$matches) {
     }
 }
 if ($matches || $maymatch) {
-    my $match = join "|", @l;
+    my $match = join "|", map { quotemeta } @l;
     @m = grep { /$match/ } map { chop; $_ } `rpm -qa`;
 
     if ($maymatch) {
@@ -48,7 +48,7 @@ load_provides();
 my %toremove; @toremove{$_, @{$provides{$_} || []}} = () foreach @m;
 my $changed = 1; while ($changed) { $changed = 0;
     local *F;
-    open F, "rpm -e --test " . join(" ", keys %toremove) . " 2>&1 |";
+    open F, "LANGUAGE=C rpm -e --test " . join(" ", keys %toremove) . " 2>&1 |";
     foreach (<F>) {
     	if (/package (\S+) is not installed/) {
     	    delete $toremove{$1};