summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-03 16:59:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-03 16:59:42 +0000
commitf6bb49c5c3138aa73f76d56ddf50852487b2d39e (patch)
treeb0c342f988f587d36d31858ec6c2a5bc0e5c63be /perl-install
parentee779caaa0185041552593c905f28c15ff6a1629 (diff)
downloaddrakx-backup-do-not-use-f6bb49c5c3138aa73f76d56ddf50852487b2d39e.tar
drakx-backup-do-not-use-f6bb49c5c3138aa73f76d56ddf50852487b2d39e.tar.gz
drakx-backup-do-not-use-f6bb49c5c3138aa73f76d56ddf50852487b2d39e.tar.bz2
drakx-backup-do-not-use-f6bb49c5c3138aa73f76d56ddf50852487b2d39e.tar.xz
drakx-backup-do-not-use-f6bb49c5c3138aa73f76d56ddf50852487b2d39e.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm7
1 files changed, 6 insertions, 1 deletions
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;
}