diff options
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; } |