From 6240dbcb2324b190e10c475d49351344573a11fe Mon Sep 17 00:00:00 2001
From: Francois Perrad <francois.perrad@gadz.org>
Date: Tue, 26 Oct 2010 13:54:21 +0200
Subject: spore2dot: check duplicated method

---
 utils/spore2dot.pl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'utils/spore2dot.pl')

diff --git a/utils/spore2dot.pl b/utils/spore2dot.pl
index a49fffe..53424b0 100644
--- a/utils/spore2dot.pl
+++ b/utils/spore2dot.pl
@@ -33,6 +33,7 @@ if ($has_interface) {
 
 }
 
+my %meth;
 foreach my $spec (@specs) {
     my $name = $spec->{meta}->{module} || $spec->{name};
     print "    \"", $name, "\"\n";
@@ -40,6 +41,8 @@ foreach my $spec (@specs) {
     print "&laquo;interface&raquo;\\n" if ($has_interface);
     print "\\N|";
     for my $name (sort keys %{$spec->{methods}}) {
+        die "duplicated $name" if exists $meth{$name};
+        $meth{$name} = 1;
         my $desc = $spec->{methods}->{$name};
         print $name, "(";
         my $first = 1;
-- 
cgit v1.2.3