From 370f220744c5853ec9c80c12e5f93a64c2670a6f Mon Sep 17 00:00:00 2001
From: Francois Gouget <fgouget@free.fr>
Date: Thu, 7 Oct 2004 04:20:41 +0000
Subject: [PATCH] Don't import parse_comma_list() unless necessary.
 winapi_check_options.pm: Fix typo in the parse_comma_list() reference.

---
 tools/winapi/make_filter_options.pm    | 2 +-
 tools/winapi/msvcmaker_options.pm      | 2 +-
 tools/winapi/winapi_check_options.pm   | 8 ++++----
 tools/winapi/winapi_cleanup_options.pm | 2 +-
 tools/winapi/winapi_extract_options.pm | 2 +-
 tools/winapi/winapi_fixup_options.pm   | 2 +-
 tools/winapi/winapi_test_options.pm    | 2 +-
 7 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/tools/winapi/make_filter_options.pm b/tools/winapi/make_filter_options.pm
index 707b121e4d3..9a2ab996487 100644
--- a/tools/winapi/make_filter_options.pm
+++ b/tools/winapi/make_filter_options.pm
@@ -28,7 +28,7 @@ require Exporter;
 @EXPORT = qw();
 @EXPORT_OK = qw($options);
 
-use options qw($options &parse_comma_list &parse_value);
+use options qw($options parse_value);
 
 my %options_long = (
     "debug" => { default => 0, description => "debug mode" },
diff --git a/tools/winapi/msvcmaker_options.pm b/tools/winapi/msvcmaker_options.pm
index e459e4b6e10..bffe295ae32 100644
--- a/tools/winapi/msvcmaker_options.pm
+++ b/tools/winapi/msvcmaker_options.pm
@@ -28,7 +28,7 @@ require Exporter;
 @EXPORT = qw();
 @EXPORT_OK = qw($options);
 
-use options qw($options &parse_comma_list);
+use options qw($options);
 
 my %options_long = (
     "debug" => { default => 0, description => "debug mode" },
diff --git a/tools/winapi/winapi_check_options.pm b/tools/winapi/winapi_check_options.pm
index e6033d10f8d..581d00d9131 100644
--- a/tools/winapi/winapi_check_options.pm
+++ b/tools/winapi/winapi_check_options.pm
@@ -29,7 +29,7 @@ require Exporter;
 @EXPORT_OK = qw($options);
 
 use config qw($current_dir $wine_dir);
-use options qw($options &parse_comma_list);
+use options qw($options parse_comma_list);
 
 my %options_long = (
     "debug" => { default => 0, description => "debug mode" },
@@ -53,7 +53,7 @@ my %options_long = (
     "module" => {
 	default => { active => 1, filter => 0, hash => {} },
 	parent => "local",
-	parser => \&parser_comma_list,
+	parser => \&parse_comma_list,
 	description => "module filter"
     },
 
@@ -62,13 +62,13 @@ my %options_long = (
     "argument-forbidden" => {
 	default => { active => 1, filter => 0, hash => {} },
 	parent => "argument",
-	parser => \&parser_comma_list,
+	parser => \&parse_comma_list,
 	description => "argument forbidden checking"
     },
     "argument-kind" => {
 	default => { active => 1, filter => 1, hash => { double => 1 } },
 	parent => "argument",
-	parser => \&parser_comma_list,
+	parser => \&parse_comma_list,
 	description => "argument kind checking"
     },
     "calling-convention" => { default => 1, parent => "local", description => "calling convention checking" },
diff --git a/tools/winapi/winapi_cleanup_options.pm b/tools/winapi/winapi_cleanup_options.pm
index b24b3b82a9d..b47cb13dc37 100644
--- a/tools/winapi/winapi_cleanup_options.pm
+++ b/tools/winapi/winapi_cleanup_options.pm
@@ -28,7 +28,7 @@ require Exporter;
 @EXPORT = qw();
 @EXPORT_OK = qw($options);
 
-use options qw($options &parse_comma_list);
+use options qw($options);
 
 my %options_long = (
     "debug" => { default => 0, description => "debug mode" },
diff --git a/tools/winapi/winapi_extract_options.pm b/tools/winapi/winapi_extract_options.pm
index 08fae9273c2..6a8972c8918 100644
--- a/tools/winapi/winapi_extract_options.pm
+++ b/tools/winapi/winapi_extract_options.pm
@@ -28,7 +28,7 @@ require Exporter;
 @EXPORT = qw();
 @EXPORT_OK = qw($options);
 
-use options qw($options &parse_comma_list);
+use options qw($options);
 
 my %options_long = (
     "debug" => { default => 0, description => "debug mode" },
diff --git a/tools/winapi/winapi_fixup_options.pm b/tools/winapi/winapi_fixup_options.pm
index fe496b42702..82b27a746cb 100644
--- a/tools/winapi/winapi_fixup_options.pm
+++ b/tools/winapi/winapi_fixup_options.pm
@@ -28,7 +28,7 @@ require Exporter;
 @EXPORT = qw();
 @EXPORT_OK = qw($options);
 
-use options qw($options &parse_comma_list);
+use options qw($options);
 
 my %options_long = (
     "debug" => { default => 0, description => "debug mode" },
diff --git a/tools/winapi/winapi_test_options.pm b/tools/winapi/winapi_test_options.pm
index a93921b7a4c..52c46d93918 100644
--- a/tools/winapi/winapi_test_options.pm
+++ b/tools/winapi/winapi_test_options.pm
@@ -28,7 +28,7 @@ require Exporter;
 @EXPORT = qw();
 @EXPORT_OK = qw($options);
 
-use options qw($options &parse_comma_list);
+use options qw($options);
 
 my %options_long = (
     "debug" => { default => 0, description => "debug mode" },