aboutsummaryrefslogtreecommitdiffstats
path: root/URPM/Build.pm
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2004-11-25 14:28:02 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2004-11-25 14:28:02 +0000
commitcb4d4260f8cd9013672e4cf91d1a7fbd90486367 (patch)
treefd4597561083e61c0c47ceba25a5aef41b33ade1 /URPM/Build.pm
parent14d502eb16305a1133c5d0fea18b660018e063bb (diff)
downloadperl-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.pm8
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}}) {