diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-04-12 13:02:44 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-04-12 13:02:44 +0000 |
| commit | f06143cc26251bb1f902b590adebb7638167a0de (patch) | |
| tree | 64d3f51ce6b934255607e1385764b0ee0cba9fbc /perl-install/pkgs.pm | |
| parent | 1a3927d2b72f1d2ac8ad54bc6bd7dd5850178b15 (diff) | |
| download | drakx-f06143cc26251bb1f902b590adebb7638167a0de.tar drakx-f06143cc26251bb1f902b590adebb7638167a0de.tar.gz drakx-f06143cc26251bb1f902b590adebb7638167a0de.tar.bz2 drakx-f06143cc26251bb1f902b590adebb7638167a0de.tar.xz drakx-f06143cc26251bb1f902b590adebb7638167a0de.zip | |
fixed log of packdrake.
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 77ead943b..3d143c8d7 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -121,13 +121,9 @@ sub extractHeaders($$$) { eval { require packdrake; - my $packer = new packdrake("/tmp/$medium->{hdlist}"); + my $packer = new packdrake("/tmp/$medium->{hdlist}", quiet => 1); $packer->extract_archive("$prefix/tmp/headers", map { packageHeaderFile($_) } @$pkgs); }; - #run_program::run("packdrake", "-x", - # "/tmp/$medium->{hdlist}", - # "$prefix/tmp/headers", - # map { packageHeaderFile($_) } @$pkgs); foreach (@$pkgs) { my $f = "$prefix/tmp/headers/". packageHeaderFile($_); @@ -425,11 +421,9 @@ sub psUsingHdlist { #- the archive too. eval { require packdrake; - my $packer = new packdrake($newf); + my $packer = new packdrake($newf, quiet => 1); foreach (@{$packer->{files}}) { $packer->{data}{$_}[0] eq 'f' or next; - #if (/^f\s+\d+\s+(.*)/) { - #my $pkg = [ (undef) x 8 ]; $pkg->[$FILE] = $1; $pkg->[$MEDIUM] = $m; my $pkg = [ (undef) x 8 ]; $pkg->[$FILE] = $_; $pkg->[$MEDIUM] = $m; my $specific_arch = packageArch($pkg); if (!$specific_arch || compat_arch($specific_arch)) { |