From d5e061896a35a49a50124949c2882ac9cbe94589 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Aug 1999 20:15:36 +0000
Subject: no_comment

---
 perl-install/commands.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/commands.pm')

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;
+}
-- 
cgit v1.2.1