From 00ec141ac81fc910e244005320247d5f7c121195 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 8 Nov 2000 18:49:44 +0000
Subject: added new function for selected or installed accessor on pkg

---
 perl-install/pkgs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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);
 			 }
 		     });
-- 
cgit v1.2.1