summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-01-05 12:00:47 +0000
committerFrancois Pons <fpons@mandriva.com>2001-01-05 12:00:47 +0000
commit1113f1a9304ef42586921f77e0eada2db25b19ea (patch)
treef2e1308133831833203749448a0a41c3bc5ca475 /perl-install/commands.pm
parent9ced370887c609cd221b798dc871dec78e8d3ee8 (diff)
downloaddrakx-backup-do-not-use-1113f1a9304ef42586921f77e0eada2db25b19ea.tar
drakx-backup-do-not-use-1113f1a9304ef42586921f77e0eada2db25b19ea.tar.gz
drakx-backup-do-not-use-1113f1a9304ef42586921f77e0eada2db25b19ea.tar.bz2
drakx-backup-do-not-use-1113f1a9304ef42586921f77e0eada2db25b19ea.tar.xz
drakx-backup-do-not-use-1113f1a9304ef42586921f77e0eada2db25b19ea.zip
removed need of packdrake binary
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 46246aa2b..5e5cb3d03 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -427,7 +427,12 @@ sub insmod {
$f = "/tmp/$_.o";
my $cz = "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz"; -e $cz or $cz .= "2";
if (-e $cz) {
- run_program::run("packdrake -x $cz /tmp $_.o");
+ eval {
+ require packdrake;
+ my $packer = new packdrake($cz);
+ $packer->extract_archive("/tmp", "$_.o");
+ };
+ #run_program::run("packdrake -x $cz /tmp $_.o");
} elsif (-e "/lib/modules.cpio.bz2") {
run_program::run("cd /tmp ; bzip2 -cd /lib/modules.cpio.bz2 | cpio -i $_.o");
} else {