summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-18 14:38:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-18 14:38:41 +0000
commit55d44a1b5c6e4d2f45d365fe7680aa619c831506 (patch)
tree79acc6af53dc612896b99f3e218569c5ca9892f6 /perl-install/commands.pm
parent9e8dbe6e3b60bfd65346d5fa6c11b4723599aebb (diff)
downloaddrakx-backup-do-not-use-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar
drakx-backup-do-not-use-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.gz
drakx-backup-do-not-use-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.bz2
drakx-backup-do-not-use-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.xz
drakx-backup-do-not-use-55d44a1b5c6e4d2f45d365fe7680aa619c831506.zip
no_comment
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index c7f75a447..09f7ecd97 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -423,8 +423,9 @@ sub insmod {
$_ = $1 if m@.*/([^/]*)\.o@;
unless (-r ($f = "/lib/modules/$_.o")) {
$f = "/tmp/$_.o";
- if (-e "/lib/modules.cz2") {
- run_program::run("extract_archive /lib/modules.cz2 /tmp $_.o");
+ my $cz = "/lib/modules.cz"; -e $cz or $cz .= "2";
+ if (-e $cz) {
+ run_program::run("extract_archive $cz /tmp $_.o");
} elsif (-e "/lib/modules.cpio.bz2") {
run_program::run("cd /tmp ; bzip2 -cd /lib/modules.cpio.bz2 | cpio -i $_.o");
} else {