André Hentschel : c2man: Mark the file used if a comment is found.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 1923e0e159b0c8140cf28d5378bd7c34b2ac1fa6
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=1923e0e159b0c8140cf28d5378...

Author: André Hentschel 
Date:   Thu Aug  4 21:08:37 2011 +0200

c2man: Mark the file used if a comment is found.

---

tools/c2man.pl |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/tools/c2man.pl b/tools/c2man.pl
index ce8a444..7eca8c4 100755
--- a/tools/c2man.pl
+++ b/tools/c2man.pl
@@ -300,6 +300,9 @@ sub process_source_file($)
     {
       if ( /^/**$/ )
       {
+        # This file is used by the DLL - Make sure we get our contributors right
+        @{$spec_files{$comment->{DLL_NAME}}[0]->{CURRENT_EXTRA}} = ();
+        push (@{$spec_files{$comment->{DLL_NAME}}[0]->{SOURCES}},$comment->{FILE});
         # Found a comment start
         $comment->{COMMENT_NAME} = "";
         $comment->{ALT_NAME} = "";
@@ -419,10 +422,6 @@ sub process_source_file($)

if ($parse_state == 4) # Reading in the function definition
     {
-      # This file is used by the DLL - Make sure we get our contributors right
-      @{$spec_files{$comment->{DLL_NAME}}[0]->{CURRENT_EXTRA}} = ();
-      push (@{$spec_files{$comment->{DLL_NAME}}[0]->{SOURCES}},$comment->{FILE});
-
       push (@{$comment->{PROTOTYPE}},$_);
       # Strip comments from the line before checking for ')'
       my $stripped_line = $_;