From e1377e07094d7259a740c2189a177cd6336b8ffa Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 14 Feb 2005 14:18:59 +0000
Subject: (remove_module) handle removal of cards (#7049)

---
 perl-install/modules/any_conf.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/modules')

diff --git a/perl-install/modules/any_conf.pm b/perl-install/modules/any_conf.pm
index c7ce2a475..c6174fd81 100644
--- a/perl-install/modules/any_conf.pm
+++ b/perl-install/modules/any_conf.pm
@@ -104,6 +104,10 @@ sub remove_alias_regexp_byname {
 sub remove_module {
     my ($conf, $module) = @_;
     $module = $conf->mapping($module);
+    substInFile {
+        undef $_ if /^$module/;
+    } $_  foreach "$::prefix/etc/modules", "$::prefix/etc/modprobe.preload";
+    
     $conf->remove_alias($module);
     log::explanations("removing module $module");
     delete $conf->{$module};
-- 
cgit v1.2.1