From 0976d0441bee25d06260dad7b520173063e194ec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 18 Sep 1999 21:41:07 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index d5330809b..de156d498 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -275,7 +275,6 @@ sub install {
 
     foreach my $p (@$toInstall) {
 	eval { getHeader($p) }; $@ and next;
-	$p->{installed} = 1;
 	$p->{file} ||= sprintf "%s-%s-%s.%s.rpm",
 	                       $p->{name}, $p->{version}, $p->{release}, 
 			       c::headerGetEntry(getHeader($p), 'arch');
@@ -313,4 +312,6 @@ sub install {
     c::rpmtransFree($trans); 
     c::rpmdbClose($db);
     log::l("rpm database closed");
+
+    $_->{installed} = 1 foreach @$toInstall;
 }
-- 
cgit v1.2.1