blob: 43c4a80192210662bfb5acf38fdda4974fc4f1cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use list_modules;
use modules;
# based on install::commands
sub modprobe {
!@_ || $_[0] =~ /^-?-h/ and die "usage: modprobe <module> [<options...>]\n";
# kernel calls us with modprobe -q -- <module>, so ignore options
my $name = shift;
while (substr($name, 0, 1) eq "-") {
$name = shift;
}
list_modules::load_default_moddeps();
modules::load_with_options([ $name ], { $name => join(' ', @_) });
}
$::isInstall = 1;
modprobe(@ARGV);
|