- allow to use an array of id instead (start .. end) in functions.

1 files changed, 10 insertions, 0 deletions

diff --git a/URPM.pm b/URPM.pm
index 136d394..1b89e23 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -75,6 +75,16 @@ sub search {
     return $best;
 }
 
+# Olivier Thauvin:
+# Return @$listid, $start .. $end or the whole deplist id
+# according given args
+sub build_listid {
+    my ($urpm, $start, $end, $listid) = @_;
+
+    @{$listid || []} > 0 ? @{$listid} :
+        ((defined($start) ? $start : 0) .. (defined($end) ? $end : $#{$urpm->{depslist}}));
+}
+
 sub traverse {
     my ($urpm, $callback) = @_;