From ae6e4c1d456cf490d0960e50b90eb762944814b2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 26 Mar 2012 20:20:30 +0000 Subject: (run) perl_checker cleanup that's the only commit from the cleaning branch that will land before the mga2 release --- urpm/main_loop.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'urpm/main_loop.pm') 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_* -- cgit v1.2.1