From e4865848efe9f1a8fef5df15924e431d63aca92d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 9 Nov 2007 09:42:15 +0000
Subject: workaround buggy apps modifying $_ (#22144)

---
 URPM.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/URPM.pm b/URPM.pm
index 0168358..2dc3eb0 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -101,8 +101,8 @@ sub traverse {
     my ($urpm, $callback) = @_;
 
     if ($callback) {
-	foreach (@{$urpm->{depslist} || []}) {
-	    $callback->($_);
+	foreach my $p (@{$urpm->{depslist} || []}) {
+	    $callback->($p);
 	}
     }
 
-- 
cgit v1.2.1