From 7fa1fd93ecd790ae288102dcb4ec4cf3ca3bc760 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 24 Jan 2000 13:53:54 +0000
Subject: no_comment

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

(limited to 'perl-install/Xconfigurator.pm')

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) {
-- 
cgit v1.2.1