summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-24 13:53:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-24 13:53:54 +0000
commit7fa1fd93ecd790ae288102dcb4ec4cf3ca3bc760 (patch)
treefd53b39c8586419f7f2b128c73167ec94a644495 /perl-install/Xconfigurator.pm
parenta5bc70922e46a978bde60d3d51454ca03b1f7325 (diff)
downloaddrakx-7fa1fd93ecd790ae288102dcb4ec4cf3ca3bc760.tar
drakx-7fa1fd93ecd790ae288102dcb4ec4cf3ca3bc760.tar.gz
drakx-7fa1fd93ecd790ae288102dcb4ec4cf3ca3bc760.tar.bz2
drakx-7fa1fd93ecd790ae288102dcb4ec4cf3ca3bc760.tar.xz
drakx-7fa1fd93ecd790ae288102dcb4ec4cf3ca3bc760.zip
no_comment
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 14f0c8c68..c8d94f082 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -103,6 +103,10 @@ sub readMonitorsDB {
@l == @fields or log::l("bad line $lineno ($_)"), next;
my %l; @l{@fields} = @l;
+ if ($monitors{$l{type}}) {
+ my $i; for ($i = 0; $monitors{"$l{type} ($i)"}; $i++) {}
+ $l{type} = "$l{type} ($i)";
+ }
$monitors{$l{type}} = \%l;
}
while (my ($k, $v) = each %standard_monitors) {