From f6bb49c5c3138aa73f76d56ddf50852487b2d39e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 3 May 2000 16:59:42 +0000
Subject: no_comment

---
 perl-install/modules.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index d4224b2ca..f095d0afb 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -409,7 +409,12 @@ sub unload($;$) {
     if ($::testing) {
 	log::l("rmmod $m");
     } else {
-	run_program::run("rmmod", $m) && delete $conf{$m}{loaded};
+	if (run_program::run("rmmod", $m)) {
+	    delete $conf{$m}{loaded};
+	}
+    }
+    foreach (keys %loaded) {
+	@{$loaded{$_}} = grep { $m ne $_ } @{$loaded{$_}};
     }
     remove_alias($m) if $remove_alias;
 }
-- 
cgit v1.2.1