aboutsummaryrefslogtreecommitdiffstats
path: root/URPM/Build.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-03 12:40:57 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-03 12:40:57 +0000
commit62827bdad31e9dbe895aaa5f44f6d02c50f9c6e4 (patch)
tree8582b4d8fb6833d76f35cd58b1d9111f1a8171d7 /URPM/Build.pm
parent8c4ba003b8c03a94d70efb40978fe28282389673 (diff)
downloadperl-URPM-62827bdad31e9dbe895aaa5f44f6d02c50f9c6e4.tar
perl-URPM-62827bdad31e9dbe895aaa5f44f6d02c50f9c6e4.tar.gz
perl-URPM-62827bdad31e9dbe895aaa5f44f6d02c50f9c6e4.tar.bz2
perl-URPM-62827bdad31e9dbe895aaa5f44f6d02c50f9c6e4.tar.xz
perl-URPM-62827bdad31e9dbe895aaa5f44f6d02c50f9c6e4.zip
0.06-1mdk
Diffstat (limited to 'URPM/Build.pm')
-rw-r--r--URPM/Build.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm
index 39e8481..9e60c02 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -335,9 +335,9 @@ sub build_hdlist {
$split = $options{split} || 400000;
open B, "| " . ($ENV{LD_LOADER} || '') . " packdrake -b${ratio}ds '$options{hdlist}' '$dir' $split";
- foreach (@{$urpm->{depslist}}[$start .. $end]) {
- my $filename = $_->fullname;
- "$filename.rpm" ne $_->filename && $_->filename =~ /([^\/]*)\.rpm$/ and $filename .= ":$1";
+ foreach my $pkg (@{$urpm->{depslist}}[$start .. $end]) {
+ my $filename = $pkg->fullname;
+ "$filename.rpm" ne $pkg->filename && $pkg->filename =~ /([^\/]*)\.rpm$/ and $filename .= ":$1";
-s "$dir/$filename" or die "bad header $dir/$filename\n";
print B "$filename\n";
}