diff options
author | Francois Pons <fpons@mandriva.com> | 2001-02-14 13:29:58 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2001-02-14 13:29:58 +0000 |
commit | 3a5d155e2a0f2dc9898157db5169db0f7f697ea1 (patch) | |
tree | 812dfb32575248f4f61f041eca404d6b1af8adb4 /rpmtools.pm | |
parent | 03baf812d3042efe72389d574bf2324e12ba879e (diff) | |
download | rpmtools-3a5d155e2a0f2dc9898157db5169db0f7f697ea1.tar rpmtools-3a5d155e2a0f2dc9898157db5169db0f7f697ea1.tar.gz rpmtools-3a5d155e2a0f2dc9898157db5169db0f7f697ea1.tar.bz2 rpmtools-3a5d155e2a0f2dc9898157db5169db0f7f697ea1.tar.xz rpmtools-3a5d155e2a0f2dc9898157db5169db0f7f697ea1.zip |
*** empty log message ***
Diffstat (limited to 'rpmtools.pm')
-rw-r--r-- | rpmtools.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index 0dd885d..245be20 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -547,7 +547,7 @@ sub version_compare { sub get_packages_installed { my ($prefix, $packages, $names, $flags) = @_; $flags ||= [ qw(name version release)]; my $db = db_open($prefix); - my $count = db_traverse_names($db, $flags, $names, sub { my ($p) = @_; push @$packages, $p; }); + my $count = db_traverse_tag($db, "name", $names, $flags, sub { my ($p) = @_; push @$packages, $p; }); db_close($db); $count; } |