summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-08 18:49:44 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-08 18:49:44 +0000
commit00ec141ac81fc910e244005320247d5f7c121195 (patch)
treea4f274f8dd115ace94ac2bfeead6b3b3d58793d8 /perl-install
parent2d5e39fa53dd2b2f2d6ac770ecd89d79a5a3f521 (diff)
downloaddrakx-00ec141ac81fc910e244005320247d5f7c121195.tar
drakx-00ec141ac81fc910e244005320247d5f7c121195.tar.gz
drakx-00ec141ac81fc910e244005320247d5f7c121195.tar.bz2
drakx-00ec141ac81fc910e244005320247d5f7c121195.tar.xz
drakx-00ec141ac81fc910e244005320247d5f7c121195.zip
added new function for selected or installed accessor on pkg
Diffstat (limited to 'perl-install')
-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);
}
});