[PATCH v2 resend] winapi: Update 'perl -w' to 'use warnings 'all''.

Serge Gautherie winehq-git_serge_180711 at gautherie.fr
Fri May 29 17:31:14 CDT 2020


Signed-off-by: Serge Gautherie <winehq-git_serge_180711 at gautherie.fr>
---
 tools/winapi/c_function.pm             | 1 +
 tools/winapi/c_parser.pm               | 1 +
 tools/winapi/c_type.pm                 | 1 +
 tools/winapi/config.pm                 | 1 +
 tools/winapi/function.pm               | 1 +
 tools/winapi/make_filter               | 3 ++-
 tools/winapi/make_filter_options.pm    | 4 +++-
 tools/winapi/make_parser.pm            | 1 +
 tools/winapi/modules.pm                | 1 +
 tools/winapi/msvcmaker                 | 3 ++-
 tools/winapi/msvcmaker_options.pm      | 4 +++-
 tools/winapi/nativeapi.pm              | 1 +
 tools/winapi/options.pm                | 2 ++
 tools/winapi/output.pm                 | 2 ++
 tools/winapi/preprocessor.pm           | 1 +
 tools/winapi/setup.pm                  | 1 +
 tools/winapi/tests.pm                  | 1 +
 tools/winapi/type.pm                   | 1 +
 tools/winapi/util.pm                   | 1 +
 tools/winapi/winapi.pm                 | 1 +
 tools/winapi/winapi_check              | 3 ++-
 tools/winapi/winapi_check_options.pm   | 8 ++++++--
 tools/winapi/winapi_documentation.pm   | 1 +
 tools/winapi/winapi_extract            | 3 ++-
 tools/winapi/winapi_extract_options.pm | 4 +++-
 tools/winapi/winapi_function.pm        | 4 +++-
 tools/winapi/winapi_global.pm          | 1 +
 tools/winapi/winapi_local.pm           | 1 +
 tools/winapi/winapi_module_user.pm     | 1 +
 tools/winapi/winapi_parser.pm          | 1 +
 tools/winapi/winapi_test               | 3 ++-
 tools/winapi/winapi_test_options.pm    | 4 +++-
 32 files changed, 54 insertions(+), 12 deletions(-)

diff --git a/tools/winapi/c_function.pm b/tools/winapi/c_function.pm
index 773c6b2..4bef581 100644
--- a/tools/winapi/c_function.pm
+++ b/tools/winapi/c_function.pm
@@ -19,6 +19,7 @@
 package c_function;
 
 use strict;
+use warnings 'all';
 
 sub new($)
 {
diff --git a/tools/winapi/c_parser.pm b/tools/winapi/c_parser.pm
index d42e04a..77e524f 100644
--- a/tools/winapi/c_parser.pm
+++ b/tools/winapi/c_parser.pm
@@ -19,6 +19,7 @@
 package c_parser;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/c_type.pm b/tools/winapi/c_type.pm
index c6aeb6a..ba1aec2 100644
--- a/tools/winapi/c_type.pm
+++ b/tools/winapi/c_type.pm
@@ -19,6 +19,7 @@
 package c_type;
 
 use strict;
+use warnings 'all';
 
 use output qw($output);
 
diff --git a/tools/winapi/config.pm b/tools/winapi/config.pm
index fd45dc7..ceba90a 100644
--- a/tools/winapi/config.pm
+++ b/tools/winapi/config.pm
@@ -19,6 +19,7 @@
 package config;
 
 use strict;
+use warnings 'all';
 
 use setup qw($current_dir $wine_dir $winapi_dir);
 
diff --git a/tools/winapi/function.pm b/tools/winapi/function.pm
index c53daa6..2bc2c4c 100644
--- a/tools/winapi/function.pm
+++ b/tools/winapi/function.pm
@@ -19,6 +19,7 @@
 package function;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;
diff --git a/tools/winapi/make_filter b/tools/winapi/make_filter
index 45665de..f080706 100755
--- a/tools/winapi/make_filter
+++ b/tools/winapi/make_filter
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Copyright 1999, 2000, 2001 Patrik Stridvall
 #
@@ -18,6 +18,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/make_filter$%;
diff --git a/tools/winapi/make_filter_options.pm b/tools/winapi/make_filter_options.pm
index 0cb81cd..7008487 100644
--- a/tools/winapi/make_filter_options.pm
+++ b/tools/winapi/make_filter_options.pm
@@ -17,9 +17,11 @@
 #
 
 package make_filter_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/make_parser.pm b/tools/winapi/make_parser.pm
index 773c5f3..2f5788d 100644
--- a/tools/winapi/make_parser.pm
+++ b/tools/winapi/make_parser.pm
@@ -19,6 +19,7 @@
 package make_parser;
 
 use strict;
+use warnings 'all';
 
 use setup qw($current_dir $wine_dir $winapi_dir);
 
diff --git a/tools/winapi/modules.pm b/tools/winapi/modules.pm
index cbf1a2a..0651a7f 100644
--- a/tools/winapi/modules.pm
+++ b/tools/winapi/modules.pm
@@ -19,6 +19,7 @@
 package modules;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/msvcmaker b/tools/winapi/msvcmaker
index a18eb97..864b2b7 100755
--- a/tools/winapi/msvcmaker
+++ b/tools/winapi/msvcmaker
@@ -1,8 +1,9 @@
-#! /usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2002 Patrik Stridvall
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/msvcmaker$%;
diff --git a/tools/winapi/msvcmaker_options.pm b/tools/winapi/msvcmaker_options.pm
index 32bdffd..242dcb9 100644
--- a/tools/winapi/msvcmaker_options.pm
+++ b/tools/winapi/msvcmaker_options.pm
@@ -17,9 +17,11 @@
 #
 
 package msvcmaker_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/nativeapi.pm b/tools/winapi/nativeapi.pm
index 4804486..bc58d96 100644
--- a/tools/winapi/nativeapi.pm
+++ b/tools/winapi/nativeapi.pm
@@ -19,6 +19,7 @@
 package nativeapi;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/options.pm b/tools/winapi/options.pm
index 3daeb11..2254852 100644
--- a/tools/winapi/options.pm
+++ b/tools/winapi/options.pm
@@ -19,6 +19,7 @@
 package options;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
@@ -58,6 +59,7 @@ sub parse_value($$) {
 package _options;
 
 use strict;
+use warnings 'all';
 
 use output qw($output);
 
diff --git a/tools/winapi/output.pm b/tools/winapi/output.pm
index f2c8d79..381570a 100644
--- a/tools/winapi/output.pm
+++ b/tools/winapi/output.pm
@@ -19,6 +19,7 @@
 package output;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
@@ -34,6 +35,7 @@ $output = '_output'->new;
 package _output;
 
 use strict;
+use warnings 'all';
 
 my $stdout_isatty = -t STDOUT;
 my $stderr_isatty = -t STDERR;
diff --git a/tools/winapi/preprocessor.pm b/tools/winapi/preprocessor.pm
index 3d49773..796f7df 100644
--- a/tools/winapi/preprocessor.pm
+++ b/tools/winapi/preprocessor.pm
@@ -19,6 +19,7 @@
 package preprocessor;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;
diff --git a/tools/winapi/setup.pm b/tools/winapi/setup.pm
index 60a35c5..ed08460 100644
--- a/tools/winapi/setup.pm
+++ b/tools/winapi/setup.pm
@@ -19,6 +19,7 @@
 package setup;
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
diff --git a/tools/winapi/tests.pm b/tools/winapi/tests.pm
index 142538c..6553da3 100644
--- a/tools/winapi/tests.pm
+++ b/tools/winapi/tests.pm
@@ -19,6 +19,7 @@
 package tests;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/type.pm b/tools/winapi/type.pm
index 8f66780..b18383a 100644
--- a/tools/winapi/type.pm
+++ b/tools/winapi/type.pm
@@ -19,6 +19,7 @@
 package type;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;
diff --git a/tools/winapi/util.pm b/tools/winapi/util.pm
index 6697d56..8f400da 100644
--- a/tools/winapi/util.pm
+++ b/tools/winapi/util.pm
@@ -19,6 +19,7 @@
 package util;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 require Exporter;
diff --git a/tools/winapi/winapi.pm b/tools/winapi/winapi.pm
index c770465..62b4311 100644
--- a/tools/winapi/winapi.pm
+++ b/tools/winapi/winapi.pm
@@ -19,6 +19,7 @@
 package winapi;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/winapi_check b/tools/winapi/winapi_check
index 61a0635..bfc9fc7 100755
--- a/tools/winapi/winapi_check
+++ b/tools/winapi/winapi_check
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 1999-2002 Patrik Stridvall
 #
@@ -28,6 +28,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/winapi_check$%;
diff --git a/tools/winapi/winapi_check_options.pm b/tools/winapi/winapi_check_options.pm
index 23abb1f..8e17744 100644
--- a/tools/winapi/winapi_check_options.pm
+++ b/tools/winapi/winapi_check_options.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_check_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
@@ -161,9 +163,11 @@ my $options_usage = "usage: winapi_check [--help] [<files>]\n";
 $options = '_winapi_check_options'->new(\%options_long, \%options_short, $options_usage);
 
 package _winapi_check_options;
-use base qw(_options);
 
 use strict;
+use warnings 'all';
+
+use base qw(_options);
 
 sub report_module($$) {
     my $self = shift;
diff --git a/tools/winapi/winapi_documentation.pm b/tools/winapi/winapi_documentation.pm
index d959e11..2be7c8c 100644
--- a/tools/winapi/winapi_documentation.pm
+++ b/tools/winapi/winapi_documentation.pm
@@ -19,6 +19,7 @@
 package winapi_documentation;
 
 use strict;
+use warnings 'all';
 
 use config qw($current_dir $wine_dir);
 use modules qw($modules);
diff --git a/tools/winapi/winapi_extract b/tools/winapi/winapi_extract
index 1d165b9..b53fbcf 100755
--- a/tools/winapi/winapi_extract
+++ b/tools/winapi/winapi_extract
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2002 Patrik Stridvall
 #
@@ -18,6 +18,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/winapi_extract$%;
diff --git a/tools/winapi/winapi_extract_options.pm b/tools/winapi/winapi_extract_options.pm
index 0e5754e..5126ba4 100644
--- a/tools/winapi/winapi_extract_options.pm
+++ b/tools/winapi/winapi_extract_options.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_extract_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/winapi_function.pm b/tools/winapi/winapi_function.pm
index 633e9ea..d4cfb72 100644
--- a/tools/winapi/winapi_function.pm
+++ b/tools/winapi/winapi_function.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_function;
-use base qw(function);
 
 use strict;
+use warnings 'all';
+
+use base qw(function);
 
 use config qw($current_dir $wine_dir);
 use util qw(normalize_set);
diff --git a/tools/winapi/winapi_global.pm b/tools/winapi/winapi_global.pm
index 38c0dfe..bb1403c 100644
--- a/tools/winapi/winapi_global.pm
+++ b/tools/winapi/winapi_global.pm
@@ -19,6 +19,7 @@
 package winapi_global;
 
 use strict;
+use warnings 'all';
 
 use modules qw($modules);
 use nativeapi qw($nativeapi);
diff --git a/tools/winapi/winapi_local.pm b/tools/winapi/winapi_local.pm
index 42dd146..a9aef17 100644
--- a/tools/winapi/winapi_local.pm
+++ b/tools/winapi/winapi_local.pm
@@ -19,6 +19,7 @@
 package winapi_local;
 
 use strict;
+use warnings 'all';
 
 use nativeapi qw($nativeapi);
 use options qw($options);
diff --git a/tools/winapi/winapi_module_user.pm b/tools/winapi/winapi_module_user.pm
index ef14453..53bce8e 100644
--- a/tools/winapi/winapi_module_user.pm
+++ b/tools/winapi/winapi_module_user.pm
@@ -19,6 +19,7 @@
 package winapi_module_user;
 
 use strict;
+use warnings 'all';
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
diff --git a/tools/winapi/winapi_parser.pm b/tools/winapi/winapi_parser.pm
index 3703837..87e286f 100644
--- a/tools/winapi/winapi_parser.pm
+++ b/tools/winapi/winapi_parser.pm
@@ -19,6 +19,7 @@
 package winapi_parser;
 
 use strict;
+use warnings 'all';
 
 use output qw($output);
 use options qw($options);
diff --git a/tools/winapi/winapi_test b/tools/winapi/winapi_test
index 8b7596f..8051591 100755
--- a/tools/winapi/winapi_test
+++ b/tools/winapi/winapi_test
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2002 Patrik Stridvall
 #
@@ -18,6 +18,7 @@
 #
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/winapi_test$%;
diff --git a/tools/winapi/winapi_test_options.pm b/tools/winapi/winapi_test_options.pm
index 240e840..c422b65 100644
--- a/tools/winapi/winapi_test_options.pm
+++ b/tools/winapi/winapi_test_options.pm
@@ -17,9 +17,11 @@
 #
 
 package winapi_test_options;
-use base qw(options);
 
 use strict;
+use warnings 'all';
+
+use base qw(options);
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;
-- 
2.10.0.windows.1




More information about the wine-devel mailing list