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/keyboard.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index b99942e79..be3f4761d 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -288,10 +288,9 @@ sub xmodmap_file {
     if (! -e $f) {
 	eval {
 	    require packdrake;
-	    my $packer = new packdrake("$ENV{SHARE_PATH}/xmodmap.cz2");
+	    my $packer = new packdrake("$ENV{SHARE_PATH}/xmodmap.cz2", quiet => 1);
 	    $packer->extract_archive("/tmp", "xmodmap.$keyboard");
 	};
-	#run_program::run("packdrake", "-x", "$ENV{SHARE_PATH}/xmodmap.cz2", '/tmp', "xmodmap.$keyboard");
 	$f = "/tmp/xmodmap.$keyboard";
     }
     -e $f && $f;
@@ -307,7 +306,6 @@ sub setup {
 	load(scalar cat_($f));
     } else {
 	local *F;
-	#open F, "packdrake -x $ENV{SHARE_PATH}/keymaps.cz2 '' $o->[1].bkmap |";
 	if (my $pid = open F, "-|") {
 	    local $/ = undef;
 	    eval { load(join('', <F>)) };
@@ -315,7 +313,7 @@ sub setup {
 	} else {
 	    eval {
 		require packdrake;
-		my $packer = new packdrake("$ENV{SHARE_PATH}/keymaps.cz2");
+		my $packer = new packdrake("$ENV{SHARE_PATH}/keymaps.cz2", quiet => 1);
 		$packer->extract_archive(undef, "$o->[1].bkmap");
 	    };
 	    c::_exit(0);
-- 
cgit v1.2.1