diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-26 20:20:30 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-26 20:20:30 +0000 |
| commit | ae6e4c1d456cf490d0960e50b90eb762944814b2 (patch) | |
| tree | d4fa370a5654dcb82170746f4eb4ab97dea62b6d | |
| parent | 1a8e18d92c6b379aa78df56cfa2e0f786572b74b (diff) | |
| download | urpmi-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
| -rw-r--r-- | urpm/main_loop.pm | 4 |
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_* |