[Module-build-checkins] Module-Build doc_check.pl,1.1,1.2

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18481

Modified Files:
	doc_check.pl 
Log Message:
Separate the actions from the methods

Index: doc_check.pl
===================================================================
RCS file: /cvsroot/module-build/Module-Build/doc_check.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- doc_check.pl	16 Oct 2005 00:05:07 -0000	1.1
+++ doc_check.pl	16 Oct 2005 00:14:53 -0000	1.2
@@ -8,11 +8,16 @@
 
 
 if (@ARGV==2) {
-  $subs{$1}++ if m/^\s*sub\s+([^_\W]\w+)/;
+  m/^\s*sub\s+ACTION_(\w+)/ ? $actions{$1}++ :
+  m/^\s*sub\s+([^_\W]\w+)/  ? $subs{$1}++    :
+  undef;
 } else {
-  $docs{$1}++ if m/^=item (\w+)\(/;
+  $docs{$1}++ if m/^=item (\w+)/;
 }
 
 END{
+  print "Methods:";
   print ($docs{$_} ? "$_*" : $_) for sort keys %subs;
+  print "\nActions:";
+  print ($docs{$_} ? "$_*" : $_) for sort keys %actions;
 }