(_installed_req_and_unreq_and_update_unrequested_list) keep new pkgs list around

(needed for next commit)

1 files changed, 2 insertions, 1 deletions

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);
 }