From ea5335c7ebe108883338f8ae348948895790ea4f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 9 Jul 2008 21:48:59 +0000
Subject: cleanup

---
 urpm/parallel_ka_run.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'urpm')

diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm
index 93b1d959..214974d7 100644
--- a/urpm/parallel_ka_run.pm
+++ b/urpm/parallel_ka_run.pm
@@ -107,17 +107,16 @@ sub parallel_resolve_dependencies {
 
     #- execute urpmq to determine packages to install.
     my ($cont, %chosen);
-    local $_;
     do {
 	$cont = 0; #- prepare to stop iteration.
 	#- the following state should be cleaned for each iteration.
 	delete $state->{selected};
 	#- now try an iteration of urpmq.
 	open my $fh, rshp_command($urpm, $parallel, "-v", "urpmq --synthesis $synthesis -fduc $line " . join(' ', keys %chosen)) . " |";
-	while (<$fh>) {
-	    chomp;
-	    (my $node, $_) = _parse_rshp_output($_) or next;
-	    urpm::parallel::parse_urpmq_output($urpm, $state, $node, $_, \$cont, \%chosen, %options);
+	while (my $s = <$fh>) {
+	    chomp $s;
+	    my ($node, $s_) = _parse_rshp_output($s) or next;
+	    urpm::parallel::parse_urpmq_output($urpm, $state, $node, $s_, \$cont, \%chosen, %options);
 	}
 	close $fh or $urpm->{fatal}(1, N("rshp failed, maybe a node is unreacheable"));
 	#- check for internal error of resolution.
-- 
cgit v1.2.1