From e1729dfdb9c341fe0b9fed7d7b0a80691a547d82 Mon Sep 17 00:00:00 2001
From: Chmouel Boudjnah <chmouel@mandriva.org>
Date: Thu, 1 Jul 1999 12:29:54 +0000
Subject: "See_The_Changelog"

---
 perl-install/unused/otherinsmod.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 perl-install/unused/otherinsmod.pm

(limited to 'perl-install/unused/otherinsmod.pm')

diff --git a/perl-install/unused/otherinsmod.pm b/perl-install/unused/otherinsmod.pm
new file mode 100644
index 000000000..fb62ff945
--- /dev/null
+++ b/perl-install/unused/otherinsmod.pm
@@ -0,0 +1,26 @@
+use diagnostics;
+use strict;
+
+sub insmod {
+
+    @_ or die "usage: insmod <module>.o [params]\n";
+
+    my $file = shift;
+    my $tmpname;
+
+    unless (-r $file) {
+	local *F;
+	open F, "/modules/modules.cgz" or die "error opening /modules/modules.cgz";
+
+	$tmpname = "/tmp/" . basename($file);
+
+	installCpioFile(\*F, $file, $tmpname, 0) or die "error extracting file";
+    }
+
+    my $rc = insmod_main($tmpname || $file, @_);
+   
+    unlink($tmpname);
+
+    return $rc;
+}
+sub modprobe { &insmod }
-- 
cgit v1.2.1