code_action() was prematurely switching mode on /sub/ but substr also matched....

code_action() was prematurely switching mode on /sub/ but substr also matched. Added following character pattern to allow sub{, sub , but not substr.

misc-scripts/doxygen_filter/EnsEMBL/PerlFilter.pm

@@ -445,7 +445,7 @@ sub code_action {
     
     push @big_buffer,$line; 
     # When we run out of open brackets, or we hit weird unpaired brackets in strings or comments
-    if ($brackets <=0 || $line =~ /^=/ || $line =~ /^\s*sub/ || $line =~ /^\s*1;/) {
+    if ($brackets <=0 || $line =~ /^=/ || $line =~ /^\s*sub[\s{]/ || $line =~ /^\s*1;/) {
         $state = NORMAL;
         push @big_buffer,"\@endcode\n </div>*/\n";
     	#Add fake function for doxygen to find after the comment.