commit a40a4f719ed5abf993a46cb4734a6a6f29c29fc2
author Patrik Stridvall <ps@leissner.se> Tue Oct 01 18:10:54 2002 +0000
committer Alexandre Julliard <julliard@winehq.org> Tue Oct 01 18:10:54 2002 +0000
tree 322deeeb16208026a628fc30b01b5934b81c236a
parent e29345c3bbce026d36eed54873e12ddfeffa3ffd

- Added a new tool winapi_test for generating tests.
- Added a data structure packing test to winapi_test.
- Reorganized and optimized a few things.

tools/winapi_check/winapi_function.pm

diff --git a/tools/winapi_check/winapi_function.pm b/tools/winapi_check/winapi_function.pm
index 96da183..4564d43 100644
--- a/tools/winapi_check/winapi_function.pm
+++ b/tools/winapi_check/winapi_function.pm
@@ -22,9 +22,10 @@
 use strict;
 
 use config qw($current_dir $wine_dir);
-use modules qw($modules);
 use util qw(&normalize_set);
-use winapi qw($win16api $win32api @winapis);
+
+my $import = 0;
+use vars qw($modules $win16api $win32api @winapis);
 
 ########################################################################
 # constructor
@@ -36,6 +37,15 @@
     my $self  = {};
     bless ($self, $class);
 
+    if (!$import) {
+	require modules;
+	import modules qw($modules);
+	
+	require winapi;
+	import winapi qw($win16api $win32api @winapis);
+
+	$import = 1;
+    }
     return $self;
 }