diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-03 16:59:42 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-03 16:59:42 +0000 |
commit | f6bb49c5c3138aa73f76d56ddf50852487b2d39e (patch) | |
tree | b0c342f988f587d36d31858ec6c2a5bc0e5c63be | |
parent | ee779caaa0185041552593c905f28c15ff6a1629 (diff) | |
download | drakx-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
-rw-r--r-- | perl-install/modules.pm | 7 |
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; } |