aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-11-17 20:59:54 +0000
committerFrancois Pons <fpons@mandriva.com>2003-11-17 20:59:54 +0000
commite7c7e97833780077c67e8cc5e0934314fa2c49bf (patch)
tree866fb33e6b574e53ad4b28fedcaa51aba6177c19
parentdf152b6d5d900ff021189236ca972309a1870a5a (diff)
downloadperl-URPM-e7c7e97833780077c67e8cc5e0934314fa2c49bf.tar
perl-URPM-e7c7e97833780077c67e8cc5e0934314fa2c49bf.tar.gz
perl-URPM-e7c7e97833780077c67e8cc5e0934314fa2c49bf.tar.bz2
perl-URPM-e7c7e97833780077c67e8cc5e0934314fa2c49bf.tar.xz
perl-URPM-e7c7e97833780077c67e8cc5e0934314fa2c49bf.zip
fixed bad use of option idlist for checking its presence
-rw-r--r--URPM/Build.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm
index 02e5866..2bd6aca 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -344,7 +344,7 @@ sub build_hdlist {
$dir = $options{dir} || ($ENV{TMPDIR} || "/tmp") . "/.build_hdlist";
-d $dir or die "no directory $dir\n";
- @idlist = @{$options{idlist}} > 0 ? @{$options{idlist}} :
+ @idlist = @{$options{idlist} || []} > 0 ? @{$options{idlist}} :
($options{start} || 0 .. $options{end} || $#{$urpm->{depslist}});
@idlist or return;
@@ -383,7 +383,7 @@ sub build_synthesis {
my ($urpm, %options) = @_;
my ($ratio, @idlist);
- @idlist = @{$options{idlist}} > 0 ? @{$options{idlist}} :
+ @idlist = @{$options{idlist} || []} > 0 ? @{$options{idlist}} :
($options{start} || 0 .. $options{end} || $#{$urpm->{depslist}});
@idlist or return;