summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-04-12 13:02:44 +0000
committerFrancois Pons <fpons@mandriva.com>2001-04-12 13:02:44 +0000
commitf06143cc26251bb1f902b590adebb7638167a0de (patch)
tree64d3f51ce6b934255607e1385764b0ee0cba9fbc /perl-install/pkgs.pm
parent1a3927d2b72f1d2ac8ad54bc6bd7dd5850178b15 (diff)
downloaddrakx-backup-do-not-use-f06143cc26251bb1f902b590adebb7638167a0de.tar
drakx-backup-do-not-use-f06143cc26251bb1f902b590adebb7638167a0de.tar.gz
drakx-backup-do-not-use-f06143cc26251bb1f902b590adebb7638167a0de.tar.bz2
drakx-backup-do-not-use-f06143cc26251bb1f902b590adebb7638167a0de.tar.xz
drakx-backup-do-not-use-f06143cc26251bb1f902b590adebb7638167a0de.zip
fixed log of packdrake.
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm10
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)) {