diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-11-17 20:59:54 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-11-17 20:59:54 +0000 |
| commit | e7c7e97833780077c67e8cc5e0934314fa2c49bf (patch) | |
| tree | 866fb33e6b574e53ad4b28fedcaa51aba6177c19 | |
| parent | df152b6d5d900ff021189236ca972309a1870a5a (diff) | |
| download | perl-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.pm | 4 |
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; |