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/keyboard.pm | |
| parent | 1a3927d2b72f1d2ac8ad54bc6bd7dd5850178b15 (diff) | |
| download | drakx-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/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 6 |
1 files changed, 2 insertions, 4 deletions
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); |