aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-16 20:11:40 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-16 20:11:40 +0000
commit0eb7dd61ae36bc0a8771399884bbe31d3835dee7 (patch)
tree97e31e88712a377a4c692a2f0b3bf7b6aa9fa526 /URPM.pm
parent193f9b714e7b3ad86388c3f19396509da0857280 (diff)
downloadperl-URPM-0eb7dd61ae36bc0a8771399884bbe31d3835dee7.tar
perl-URPM-0eb7dd61ae36bc0a8771399884bbe31d3835dee7.tar.gz
perl-URPM-0eb7dd61ae36bc0a8771399884bbe31d3835dee7.tar.bz2
perl-URPM-0eb7dd61ae36bc0a8771399884bbe31d3835dee7.tar.xz
perl-URPM-0eb7dd61ae36bc0a8771399884bbe31d3835dee7.zip
(URPM::traverse_tag_find) add it for urpme --env
Diffstat (limited to 'URPM.pm')
-rw-r--r--URPM.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/URPM.pm b/URPM.pm
index 523902c..c83e122 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -177,6 +177,13 @@ sub traverse_tag {
$count;
}
+#- this is used when faking a URPM::DB: $urpm can be used as-a $db
+#- (used for urpmi --env)
+sub traverse_tag_find {
+ my ($urpm, $tag, $name, $callback) = @_;
+ $urpm->traverse_tag($tag, [ $name ], $callback);
+}
+
# wrapper around XS functions
# it handles error cases
sub _parse_hdlist_or_synthesis {