commit 5379c7901c7bdb63cdd33078f94d42abc31256a2
author Patrik Stridvall <ps@leissner.se> Tue Jul 23 01:59:09 2002 +0000
committer Alexandre Julliard <julliard@winehq.org> Tue Jul 23 01:59:09 2002 +0000
tree 5078dbea7478902668516592173ac8d1206d2e0a
parent 8482613aa3a5f9f3ac4a520706ae713496be6708

- Report broken forwards.
- API files update.

tools/winapi_check/modules.pm

diff --git a/tools/winapi_check/modules.pm b/tools/winapi_check/modules.pm
index 051aabf..1904ff3 100644
--- a/tools/winapi_check/modules.pm
+++ b/tools/winapi_check/modules.pm
@@ -47,6 +47,9 @@
     my $module;
     my $type;
 
+    $module = $file;
+    $module =~ s%^.*?([^/]+)\.spec$%$1%;
+
     open(IN, "< $file") || die "$file: $!\n";
     local $/ = "\n";
     my $header = 1;
@@ -58,7 +61,6 @@
 	/^$/ && next;
 
 	if($header)  {
-	    if(/^name\s*(\S*)/) { $module = $1; }
 	    if(/^\d+|@/) { $header = 0; $lookahead = 1; }
 	    next;
 	}
@@ -70,11 +72,6 @@
     }
     close(IN);
 
-    if(!defined($module)) {
-	$module = $file;
-	$module =~ s%^.*?([^/]+)\.spec|%$1%;
-    }
-
     if(!defined($type)) {
 	$type = "win32";
     }