From f06143cc26251bb1f902b590adebb7638167a0de Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 12 Apr 2001 13:02:44 +0000
Subject: fixed log of packdrake.

---
 perl-install/pkgs.pm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'perl-install/pkgs.pm')

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)) {
-- 
cgit v1.2.1