summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-26 20:20:30 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-26 20:20:30 +0000
commitae6e4c1d456cf490d0960e50b90eb762944814b2 (patch)
treed4fa370a5654dcb82170746f4eb4ab97dea62b6d /urpm
parent1a8e18d92c6b379aa78df56cfa2e0f786572b74b (diff)
downloadurpmi-ae6e4c1d456cf490d0960e50b90eb762944814b2.tar
urpmi-ae6e4c1d456cf490d0960e50b90eb762944814b2.tar.gz
urpmi-ae6e4c1d456cf490d0960e50b90eb762944814b2.tar.bz2
urpmi-ae6e4c1d456cf490d0960e50b90eb762944814b2.tar.xz
urpmi-ae6e4c1d456cf490d0960e50b90eb762944814b2.zip
(run) perl_checker cleanup
that's the only commit from the cleaning branch that will land before the mga2 release
Diffstat (limited to 'urpm')
-rw-r--r--urpm/main_loop.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm
index 5489bebc..95fc744a 100644
--- a/urpm/main_loop.pm
+++ b/urpm/main_loop.pm
@@ -29,7 +29,7 @@ use urpm::select;
use urpm::orphans;
use urpm::get_pkgs;
use urpm::signature;
-use urpm::util qw(untaint difference2 intersection member partition);
+use urpm::util qw(untaint difference2 find intersection member partition);
# locking is left to callers
sub run {
@@ -285,7 +285,7 @@ sub run {
if (@l) {
my ($raw_error, $translated) = partition { /^(badarch|bados|installed|badrelocate|conflicts|installed|diskspace|disknodes|requires|conflicts|unknown)\@/ } @l;
@l = @$translated;
- my $fatal = grep { /^disk/ } @$raw_error;
+ my $fatal = find { /^disk/ } @$raw_error;
my $no_question = $fatal || $urpm->{options}{auto};
#- Warning : the following message is parsed in urpm::parallel_*