diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-12-09 15:10:56 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-12-09 15:10:56 +0000 |
| commit | 6b032f86d902df24a9fdd76d07121d91b3571a74 (patch) | |
| tree | 83d328e57cea13b86bbdd5f8e7cdd7440f3a8713 | |
| parent | 444e449aaf670737099e92adc2e26cb8f3787ae7 (diff) | |
| download | perl-URPM-6b032f86d902df24a9fdd76d07121d91b3571a74.tar perl-URPM-6b032f86d902df24a9fdd76d07121d91b3571a74.tar.gz perl-URPM-6b032f86d902df24a9fdd76d07121d91b3571a74.tar.bz2 perl-URPM-6b032f86d902df24a9fdd76d07121d91b3571a74.tar.xz perl-URPM-6b032f86d902df24a9fdd76d07121d91b3571a74.zip | |
Remove external call to packdrake.
| -rw-r--r-- | URPM/Build.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm index 3d48c1d..59e46a1 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -421,15 +421,21 @@ sub build_hdlist { $ratio = $options{ratio} || 4; $split = $options{split} || 400000; - open my $fh, "| " . ($ENV{LD_LOADER} || '') . " packdrake -b${ratio}ds '$options{hdlist}' '$dir' $split"; + require Packdrakeng; + my $pack = Packdrakeng->new( + archive => $options{hdlist}, + compress => "gzip", + uncompress => "gzip -d", + block_size => $split, + comp_level => $ratio, + ) or die "Can't create archive"; foreach my $pkg (@{$urpm->{depslist}}[@idlist]) { 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 $fh "$filename\n"; + $pack->add($dir, $filename); } - close $fh or die "packdrake failed\n"; } #- build synthesis file. |