diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-18 21:41:07 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-18 21:41:07 +0000 |
| commit | 0976d0441bee25d06260dad7b520173063e194ec (patch) | |
| tree | 133061d9d342351265be9744522f91d5b5648e70 /perl-install/pkgs.pm | |
| parent | a3f0d48ce9bec90c2304166b1185ddb457a9775a (diff) | |
| download | drakx-0976d0441bee25d06260dad7b520173063e194ec.tar drakx-0976d0441bee25d06260dad7b520173063e194ec.tar.gz drakx-0976d0441bee25d06260dad7b520173063e194ec.tar.bz2 drakx-0976d0441bee25d06260dad7b520173063e194ec.tar.xz drakx-0976d0441bee25d06260dad7b520173063e194ec.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
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; } |