Fix winapi_check

[Hans Leidekker]

Changelog: Make winapi_check handle spec files where no handler is specified

cvs diff -u winapi.pm
Index: tools/winapi/winapi.pm
===================================================================
RCS file: /home/wine/wine/tools/winapi/winapi.pm,v
retrieving revision 1.8
diff -u -r1.8 winapi.pm
--- tools/winapi/winapi.pm	2 Jan 2003 19:26:11 -0000	1.8
+++ tools/winapi/winapi.pm	7 Apr 2003 12:45:57 -0000
@@ -271,7 +271,7 @@
 	my $ordinal;
 	if(/^(\d+|@)\s+
 	   (pascal|pascal16|stdcall|cdecl|varargs)\s+
-	   ((?:(?:-noimport|-noname|-norelay|-i386|-ret64|-register|-interrupt)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S+)$/x)
+	   ((?:(?:-noimport|-noname|-norelay|-i386|-ret64|-register|-interrupt)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
 	{
 	    my $calling_convention = $2;
 	    my $flags = $3;
@@ -440,7 +440,7 @@
                 $$module_external_calling_convention{$module}{"\@$ordinal"} = "forward";
             }
 	    $$function_forward{$module}{$external_name} = [$forward_module, $forward_name];
-	} elsif(/^(\d+|@)\s+extern\s+(\S+)\s+(\S+)$/) {
+	} elsif(/^(\d+|@)\s+extern\s+(\S+)\s*(\S*)$/) {
 	    $ordinal = $1;
 
 	    my $external_name = $2;