diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-03-01 17:06:36 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-03-01 17:06:36 +0000 |
| commit | f86133e756be5b68e8bea52693cfc6564c305124 (patch) | |
| tree | 140c47c91aa9a5aed2da79a939ddefdeb4b13df4 /rpmtools.pm | |
| parent | 6977c59931563c95a4ea2eaac80087d28771cdae (diff) | |
| download | rpmtools-f86133e756be5b68e8bea52693cfc6564c305124.tar rpmtools-f86133e756be5b68e8bea52693cfc6564c305124.tar.gz rpmtools-f86133e756be5b68e8bea52693cfc6564c305124.tar.bz2 rpmtools-f86133e756be5b68e8bea52693cfc6564c305124.tar.xz rpmtools-f86133e756be5b68e8bea52693cfc6564c305124.zip | |
*** empty log message ***
Diffstat (limited to 'rpmtools.pm')
| -rw-r--r-- | rpmtools.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index 5c31a85..dd33299 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -116,7 +116,7 @@ sub read_hdlists { #- build an hdlist from a list of files. sub build_hdlist { - my ($params, $noclean, $dir, $hdlist, @rpms) = @_; + my ($params, $noclean, $ratio, $dir, $hdlist, @rpms) = @_; my %names; #- build a working directory which will hold rpm headers. @@ -131,7 +131,15 @@ sub build_hdlist { push @{$names{$name} ||= []}, $key; } - open B, "| packdrake -b9ds '$hdlist' '$dir' 400000"; + #- compression ratio are not very high, sample for cooker + #- gives the following (main only and cache fed up): + #- ratio compression_time size + #- 9 21.5 sec 8.10Mb -> good for installation CD + #- 6 10.7 sec 8.15Mb + #- 5 9.5 sec 8.20Mb + #- 4 8.6 sec 8.30Mb -> good for urpmi + #- 3 7.6 sec 8.60Mb + open B, "| packdrake -b${ratio}ds '$hdlist' '$dir' 400000"; foreach (@{$params->{depslist}}) { if (my $keys = delete $names{$_->{name}}) { print B "$_\n" foreach @$keys; |