summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-18 21:41:07 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-18 21:41:07 +0000
commit0976d0441bee25d06260dad7b520173063e194ec (patch)
tree133061d9d342351265be9744522f91d5b5648e70 /perl-install/pkgs.pm
parenta3f0d48ce9bec90c2304166b1185ddb457a9775a (diff)
downloaddrakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.gz
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.bz2
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.xz
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm3
1 files changed, 2 insertions, 1 deletions
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;
}