[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