diff options
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; +} |