From 9a535a669b82d374106c58d7407fc1033de467b0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 27 Oct 2001 18:28:11 +0000 Subject: - quotemeta arguments - ensure "rpm -e" is not localized when looking for "package XXX is not installed" and "XXX is needed by XXX" --- urpme | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'urpme') 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 () { if (/package (\S+) is not installed/) { delete $toremove{$1}; -- cgit v1.2.1