(URPM::traverse_tag_find) add it for urpme --env

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 {