summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-29 20:15:36 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-29 20:15:36 +0000
commitd5e061896a35a49a50124949c2882ac9cbe94589 (patch)
tree920e7af830e2aa3a766dba5b7aacdca4a6b50a44 /perl-install/modules.pm
parentc05cafad9c601272884cf75ee4e056bfbf4b2917 (diff)
downloaddrakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.gz
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.bz2
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.tar.xz
drakx-d5e061896a35a49a50124949c2882ac9cbe94589.zip
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm13
1 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index e1e735e1b..4118fec29 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -231,11 +231,7 @@ sub load_raw($$$@) {
my ($name, $type, $minor, @options) = @_;
# @options or @options = guiGetModuleOptions($name);
- my $f = "/tmp/$name.o";
- 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, @options) or die("insmod $name failed");
- unlink $f;
+ run_program::run("insmod", $name, @options) or die("insmod $name failed");
# this is a hack to make plip go
if ($name eq "parport_pc") {
@@ -250,6 +246,13 @@ sub load_raw($$$@) {
$loaded{$name} = { type => $type, minor => $minor, options => \@options };
}
+sub read_already_loaded() {
+ foreach (cat_("/proc/modules", "die")) {
+ my ($name) = split;
+ @{$loaded{$name}}{"type", "minor"} = @{$drivers{$name}}[3,4];
+ }
+}
+
sub load_deps($) {
my ($file) = @_;