winapi: Update 'perl -w' to 'use warnings 'all''.

tools/winapi/c_function.pm

@@ -19,6 +19,7 @@
 package c_function;
 
 use strict;
+use warnings 'all';
 
 sub new($)
 {

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;

tools/winapi/c_type.pm

@@ -19,6 +19,7 @@
 package c_type;
 
 use strict;
+use warnings 'all';
 
 use output qw($output);
 

tools/winapi/config.pm

@@ -19,6 +19,7 @@
 package config;
 
 use strict;
+use warnings 'all';
 
 use setup qw($current_dir $wine_dir $winapi_dir);
 

tools/winapi/function.pm

@@ -19,6 +19,7 @@
 package function;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;

tools/winapi/make_filter

-#! /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$%;

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;

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);
 

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;

tools/winapi/msvcmaker

-#! /usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2002 Patrik Stridvall
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     $0 =~ m%^(.*?/?tools)/winapi/msvcmaker$%;

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;

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;

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);
 

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;

tools/winapi/preprocessor.pm

@@ -19,6 +19,7 @@
 package preprocessor;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;

tools/winapi/setup.pm

@@ -19,6 +19,7 @@
 package setup;
 
 use strict;
+use warnings 'all';
 
 BEGIN {
     use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

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;

tools/winapi/type.pm

@@ -19,6 +19,7 @@
 package type;
 
 use strict;
+use warnings 'all';
 
 sub new($) {
     my $proto = shift;

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;

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;

tools/winapi/winapi_check

-#!/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$%;

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;

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);

tools/winapi/winapi_extract

-#!/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$%;

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;

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);

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);

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);

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;

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);

tools/winapi/winapi_test

-#!/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$%;

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;