From 89a057b741377ab07e3cd1ff2ef0070622308a8d Mon Sep 17 00:00:00 2001 From: Francois Pons 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