diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-11-25 19:18:17 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-11-25 19:18:17 +0000 |
commit | 17ff2298bf414510dd4ecb000ab16d616d7c91e7 (patch) | |
tree | 424889c9bb0c9bfe4e3dd4f477a079bd454b3b3a /URPM.pm | |
parent | cb4d4260f8cd9013672e4cf91d1a7fbd90486367 (diff) | |
download | perl-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.pm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 { |