diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-29 20:15:36 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-29 20:15:36 +0000 |
| commit | d5e061896a35a49a50124949c2882ac9cbe94589 (patch) | |
| tree | 920e7af830e2aa3a766dba5b7aacdca4a6b50a44 /perl-install/commands.pm | |
| parent | c05cafad9c601272884cf75ee4e056bfbf4b2917 (diff) | |
| download | drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.gz drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.bz2 drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.xz drakx-d5e061896a35a49a50124949c2882ac9cbe94589.zip | |
no_comment
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index 1e09d7329..e2c5ba97b 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -387,3 +387,13 @@ sub unpack_ { } } } + +sub insmod { + my $name = shift; + my $f = "/tmp/$name.o"; + require 'run_program.pm'; + run_program::run("cd /tmp ; bzip2 -cd /lib/modules.cpio.bz2 | cpio -i $name.o"); + -r $f or die "can't find module $name"; + run_program::run("insmod_", $f, @_) or die("insmod $name failed"); + unlink $f; +} |