From 79cfa728dea726c404876d6430c0348f1dad767a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 26 Aug 2012 23:05:40 +0000
Subject: (_installed_req_and_unreq_and_update_unrequested_list) keep new pkgs
 list around

(needed for next commit)
---
 urpm/orphans.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'urpm')

diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index dcc82572..9399f9e4 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -100,7 +100,8 @@ sub _installed_req_and_unreq_and_update_unrequested_list {
     my ($unreq, $req) = partition { $unrequested->{$_->name} } @$pkgs;
     
     # update the list (to filter dups and now-removed-pkgs)
-    _write_unrequested_list__file($urpm, [map { $_->name } @$unreq]);
+    my @new = map { $_->name } @$unreq;
+    _write_unrequested_list__file($urpm, \@new);
 
     ($req, $unreq, $unrequested);
 }
-- 
cgit v1.2.1