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 }