[DOC] Fixed even more errors.

[simgrid.git] / tools / doxygen / index_create.pl

diff --git a/tools/doxygen/index_create.pl b/tools/doxygen/index_create.pl
index f9f58d2..bad8593 100755 (executable)
--- a/tools/doxygen/index_create.pl
+++ b/tools/doxygen/index_create.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 # Copyright (c) 2005, 2012-2014. The SimGrid Team.
 # All rights reserved.
@@ -6,6 +6,8 @@
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the license (GNU LGPL) which comes with this package.
 
+use warnings;
+
 ($#ARGV >= 1) or die "Usage: index_create.pl <input-tag-file> <output-doc-file>";
 
 my($type) = "";
@@ -64,7 +66,12 @@ foreach $type (qw(define enumeration enumvalue function typedef)) {
            if($type eq "function") {
                print OUTPUT "\t<LI> $name()</LI>\n";
            } else {
-               print OUTPUT "\t<LI> #$name</LI>\n";
+          if($type eq "enumeration") {
+                   print OUTPUT "\t<LI> ".$name."::EType</LI>\n";
+          }
+          else {
+                   print OUTPUT "\t<LI> #$name</LI>\n";
+          }
            }
        }
        print OUTPUT "\n  </ul>\n";