From 55d44a1b5c6e4d2f45d365fe7680aa619c831506 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Apr 2000 14:38:41 +0000 Subject: no_comment --- perl-install/commands.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/commands.pm') 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 { -- cgit v1.2.1