From 89a057b741377ab07e3cd1ff2ef0070622308a8d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 18 Jul 2002 15:47:18 +0000
Subject: fixes error if package is not found (regression fixed).

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index bc554e67f..34ecbd629 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -161,7 +161,7 @@ sub setup_postinstall_rpms($$) {
     #- compute closure of package that may be copied, use INSTALL category
     #- in rpmsrate.
     foreach (@{$packages->{needToCopy} || []}) {
-	my $p = pkgs::packageByName($packages, $_);
+	my $p = pkgs::packageByName($packages, $_) or next;
 	pkgs::selectPackage($packages, $p, 0, \%toCopy);
     }
 
-- 
cgit v1.2.1