summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
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 30b990d36..6c954c244 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -150,6 +150,8 @@ sub packageFile {
"$1$2." . c::headerGetEntry($pkg->{header}, 'arch') . ".rpm";
}
+sub packageSelectedOrInstalled { my ($pkg) = @_; packageFlagSelected($pkg) || packageFlagInstalled($pkg) }
+
sub packageId {
my ($packages, $pkg) = @_;
my $i = 0;
@@ -812,7 +814,6 @@ sub selectPackagesAlreadyInstalled {
my $version_rel_test = $version_cmp > 0 || $version_cmp == 0 &&
versionCompare(c::headerGetEntry($header, 'release'), packageRelease($p)) >= 0;
$version_rel_test or log::l("keeping an older package, avoiding selecting $p->{file}");
- packageSetFlagSelected($p, 1);
packageSetFlagInstalled($p, 1);
}
});