aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-11-25 19:18:17 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-11-25 19:18:17 +0000
commit17ff2298bf414510dd4ecb000ab16d616d7c91e7 (patch)
tree424889c9bb0c9bfe4e3dd4f477a079bd454b3b3a /URPM.pm
parentcb4d4260f8cd9013672e4cf91d1a7fbd90486367 (diff)
downloadperl-URPM-17ff2298bf414510dd4ecb000ab16d616d7c91e7.tar
perl-URPM-17ff2298bf414510dd4ecb000ab16d616d7c91e7.tar.gz
perl-URPM-17ff2298bf414510dd4ecb000ab16d616d7c91e7.tar.bz2
perl-URPM-17ff2298bf414510dd4ecb000ab16d616d7c91e7.tar.xz
perl-URPM-17ff2298bf414510dd4ecb000ab16d616d7c91e7.zip
Inspired changes on top of Olivier's changes
Diffstat (limited to 'URPM.pm')
-rw-r--r--URPM.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/URPM.pm b/URPM.pm
index 1b89e23..c5bdc88 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -75,14 +75,14 @@ sub search {
return $best;
}
-# Olivier Thauvin:
-# Return @$listid, $start .. $end or the whole deplist id
-# according given args
+#- Olivier Thauvin:
+#- Returns @$listid, $start .. $end or the whole deplist id
+#- according to the given args
sub build_listid {
my ($urpm, $start, $end, $listid) = @_;
@{$listid || []} > 0 ? @{$listid} :
- ((defined($start) ? $start : 0) .. (defined($end) ? $end : $#{$urpm->{depslist}}));
+ (($start || 0) .. (defined($end) ? $end : $#{$urpm->{depslist}}));
}
sub traverse {