diff options
author | Olivier Thauvin <nanardon@mandriva.org> | 2004-11-25 14:28:02 +0000 |
---|---|---|
committer | Olivier Thauvin <nanardon@mandriva.org> | 2004-11-25 14:28:02 +0000 |
commit | cb4d4260f8cd9013672e4cf91d1a7fbd90486367 (patch) | |
tree | fd4597561083e61c0c47ceba25a5aef41b33ade1 /URPM/Build.pm | |
parent | 14d502eb16305a1133c5d0fea18b660018e063bb (diff) | |
download | perl-URPM-cb4d4260f8cd9013672e4cf91d1a7fbd90486367.tar perl-URPM-cb4d4260f8cd9013672e4cf91d1a7fbd90486367.tar.gz perl-URPM-cb4d4260f8cd9013672e4cf91d1a7fbd90486367.tar.bz2 perl-URPM-cb4d4260f8cd9013672e4cf91d1a7fbd90486367.tar.xz perl-URPM-cb4d4260f8cd9013672e4cf91d1a7fbd90486367.zip |
- allow to use an array of id instead (start .. end) in functions.
Diffstat (limited to 'URPM/Build.pm')
-rw-r--r-- | URPM/Build.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm index 0dd97ba..40eb49a 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -1,5 +1,7 @@ package URPM; +# $Id$ + use strict; sub _get_tmp_dir () { @@ -444,9 +446,7 @@ sub build_synthesis { my ($urpm, %options) = @_; my ($ratio, @idlist); - @idlist = @{$options{idlist} || []} > 0 ? @{$options{idlist}} : - ($options{start} || 0 .. $options{end} || $#{$urpm->{depslist}}); - @idlist or return; + @idlist = $urpm->build_listid($options{start}, $options{end}, $options{idlist}) or return; $ratio = $options{ratio} || 9; $options{synthesis} || defined $options{fd} or die "invalid parameters given"; @@ -485,6 +485,8 @@ sub build_synthesis { sub build_base_files { my ($urpm, %options) = @_; + my @idlist = $urpm->build_listid($options{start}, $options{end}, $options{idlist}) or return; + if ($options{depslist}) { open my $fh, ">$options{depslist}"; foreach (0 .. $#{$urpm->{depslist}}) { |