From 3b292ff24ae5de8eae53d377c9839cd7daa21354 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 4 Dec 2001 16:06:29 +0000
Subject: fix bad parsing of package to copy (when one doen't exist anymore) in
 postinstall_rpms directory.

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 00bc741d2..93d70c3f8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -183,7 +183,7 @@ sub setup_postinstall_rpms($$) {
     }
     @toCopy{@needToCopyIfRequiresSatisfied} = ();
 
-    my @toCopy = map { pkgs::packageByName($packages, $_) } keys %toCopy;
+    my @toCopy = grep { $_ } map { pkgs::packageByName($packages, $_) } keys %toCopy;
 
     #- extract headers of package, this is necessary for getting
     #- the complete filename of each package.
-- 
cgit v1.2.1