1 files changed, 26 insertions, 0 deletions
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 }