From 25b773a0184f2d30d4b7462f174f253d26c9d8ff Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 7 Sep 2005 14:40:10 +0000
Subject: (remove_module) better written this way

---
 perl-install/modules/any_conf.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install/modules')

diff --git a/perl-install/modules/any_conf.pm b/perl-install/modules/any_conf.pm
index e3bbb318c..42050cd04 100644
--- a/perl-install/modules/any_conf.pm
+++ b/perl-install/modules/any_conf.pm
@@ -105,9 +105,11 @@ sub remove_module {
     my ($conf, $module) = @_;
     return if !$module;
     $module = $conf->mapping($module);
-    substInFile {
-        undef $_ if /^$module/;
-    } $_  foreach "$::prefix/etc/modules", "$::prefix/etc/modprobe.preload";
+    foreach my $file ("$::prefix/etc/modules", "$::prefix/etc/modprobe.preload") {
+        substInFile {
+            undef $_ if /^$module/;
+        } $file;
+    }
     
     $conf->remove_alias($module);
     log::explanations("removing module $module");
-- 
cgit v1.2.1