From e9d5cd96b2054cad8cca21bc1e7c10e4f4e135ed Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 7 Nov 1999 11:52:51 +0000
Subject: no_comment

---
 perl-install/modules.pm | 26 +++++++++-----------------
 1 file changed, 9 insertions(+), 17 deletions(-)

(limited to 'perl-install/modules.pm')

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 828b92af7..3c3d00ff6 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -157,6 +157,7 @@ sub text2driver($) {
     die "$text is not a valid module description";
 }
 
+sub add_alias($$) { $conf{$_[0]}{alias} = $_[1]; }
 
 sub load {
     my ($name, $type, @options) = @_;
@@ -174,17 +175,19 @@ sub load {
     }
     push @{$loaded{$type}}, $name;
 
-    $conf{'scsi_hostadapter' . ($scsi++ || '')}{alias} = $name
-      if $type && $type eq 'scsi';
-
+    if ($type) {
+	$conf{$type}{alias} = $name if $type eq 'usbmouse';
+	$conf{'scsi_hostadapter' . ($scsi++ || '')}{alias} = $name if $type eq 'scsi';
+    }
     $conf{$name}{options} = join " ", @options if @options;
 }
 
 sub unload($) {
+    my ($m) = @_; 
     if ($::testing) {
-	log::l("rmmod $_[0]");
-    } else {
-	run_program::run("rmmod", $_[0]);
+	log::l("rmmod $m");
+    } else {	
+	run_program::run("rmmod", $m) && delete $conf{$m}{loaded};
     }
 }
 
@@ -331,14 +334,3 @@ sub get_pcmcia_devices($$) {
     }
     @devs;
 }
-
-#-#- This assumes only one of each driver type is loaded
-#-sub removeDeviceDriver {
-#-    my ($type) = @_;
-#-
-#-    my @m = grep { $loaded{$_}{type} eq $type } keys %loaded;
-#-    @m or return 0;
-#-    @m > 1 and log::l("removeDeviceDriver assume only one of each driver type is loaded, which is not the case (" . join(' ', @m) . ")");
-#-    removeModule($m[0]);
-#-    1;
-#-}
-- 
cgit v1.2.1