From 0eb7dd61ae36bc0a8771399884bbe31d3835dee7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 16 Mar 2012 20:11:40 +0000
Subject: (URPM::traverse_tag_find) add it for urpme --env

---
 NEWS    | 2 ++
 URPM.pm | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/NEWS b/NEWS
index 178e8a7..b562d5d 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- add URPM::traverse_tag_find() for urpme --env
+
 Version 3.39 - 27 February 2012
 
 - do not add FILENAME_TAG to hdlist anymore (unused since mdv2008)
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 {
-- 
cgit v1.2.1