diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-11-08 18:49:44 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-11-08 18:49:44 +0000 |
| commit | 00ec141ac81fc910e244005320247d5f7c121195 (patch) | |
| tree | a4f274f8dd115ace94ac2bfeead6b3b3d58793d8 /perl-install | |
| parent | 2d5e39fa53dd2b2f2d6ac770ecd89d79a5a3f521 (diff) | |
| download | drakx-backup-do-not-use-00ec141ac81fc910e244005320247d5f7c121195.tar drakx-backup-do-not-use-00ec141ac81fc910e244005320247d5f7c121195.tar.gz drakx-backup-do-not-use-00ec141ac81fc910e244005320247d5f7c121195.tar.bz2 drakx-backup-do-not-use-00ec141ac81fc910e244005320247d5f7c121195.tar.xz drakx-backup-do-not-use-00ec141ac81fc910e244005320247d5f7c121195.zip | |
added new function for selected or installed accessor on pkg
Diffstat (limited to 'perl-install')
| -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 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); } }); |