summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-07 13:17:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-07 13:17:19 +0000
commitDiffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 751176ce5..61530652e 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -115,7 +115,7 @@ sub probe_category {
}
$b;
} else {
- detect_devices::check($_) && member($_->{driver}, @modules);
+ member($_->{driver}, @modules);
}
} detect_devices::probeall($probe_type);
}
odule"); if (isset($lang)) { $kkeys[$module] = $lang; $keys[] = $module; unset($lang); } } $equal = $case = $diff = 0; $output = array(); while ($module = array_shift($keys)) { $keys_1 = array_keys($kkeys[$module]); foreach ($keys as $other_module) { $keys_2 = array_keys($kkeys[$other_module]); foreach(array_intersect($keys_1, $keys_2) as $dup) { if ($kkeys[$module][$dup] == $kkeys[$other_module][$dup]) { $compare = "Equal"; $equal++; } else if (strcasecmp($kkeys[$module][$dup], $kkeys[$other_module][$dup]) == 0) { $compare = "Differ in case"; $case++; } else { $compare = "'{$kkeys[$module][$dup]}' - '{$kkeys[$other_module][$dup]}'"; $diff++; } $color = ''; if ((basename($module) == "common.$phpEx") || (basename($other_module) == "common.$phpEx"))