--- code2html	2006-05-13 03:17:35.000000000 +0200
+++ code2html.ada_identifiers_fixed	2006-05-13 10:03:27.000000000 +0200
@@ -1968,5 +1968,5 @@
                                               {
                                                 'name'       => 'Identifiers',
-                                                'regex'      => '\\b[a-zA-Z][a-zA-Z0-9_]*\\b',
+                                                'regex'      => '\\b[a-zA-Z](_?[a-zA-Z0-9])*\\b',
 					        'style'      => 'identifier',
                                                 'childregex' => []