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/Build.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/Build.pm')
-rw-r--r-- | URPM/Build.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm index 40eb49a..3d48c1d 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -408,9 +408,7 @@ sub build_hdlist { $dir = $options{dir} || _get_tmp_dir; -d $dir or die "no directory $dir\n"; - @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; #- compression ratio are not very high, sample for cooker #- gives the following (main only and cache fed up): @@ -485,8 +483,6 @@ 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}}) { |