diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-01-05 12:00:47 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-01-05 12:00:47 +0000 |
| commit | 1113f1a9304ef42586921f77e0eada2db25b19ea (patch) | |
| tree | f2e1308133831833203749448a0a41c3bc5ca475 /perl-install/commands.pm | |
| parent | 9ced370887c609cd221b798dc871dec78e8d3ee8 (diff) | |
| download | drakx-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.pm | 7 |
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 { |