Commit 866f6725 authored by Serge Gautherie's avatar Serge Gautherie Committed by Alexandre Julliard

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

parent a771e58e
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package c_function; package c_function;
use strict; use strict;
use warnings 'all';
sub new($) sub new($)
{ {
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package c_parser; package c_parser;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package c_type; package c_type;
use strict; use strict;
use warnings 'all';
use output qw($output); use output qw($output);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package config; package config;
use strict; use strict;
use warnings 'all';
use setup qw($current_dir $wine_dir $winapi_dir); use setup qw($current_dir $wine_dir $winapi_dir);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package function; package function;
use strict; use strict;
use warnings 'all';
sub new($) { sub new($) {
my $proto = shift; my $proto = shift;
......
#! /usr/bin/perl -w #!/usr/bin/perl
# #
# Copyright 1999, 2000, 2001 Patrik Stridvall # Copyright 1999, 2000, 2001 Patrik Stridvall
# #
...@@ -18,6 +18,7 @@ ...@@ -18,6 +18,7 @@
# #
use strict; use strict;
use warnings 'all';
BEGIN { BEGIN {
$0 =~ m%^(.*?/?tools)/winapi/make_filter$%; $0 =~ m%^(.*?/?tools)/winapi/make_filter$%;
......
...@@ -17,9 +17,11 @@ ...@@ -17,9 +17,11 @@
# #
package make_filter_options; package make_filter_options;
use base qw(options);
use strict; use strict;
use warnings 'all';
use base qw(options);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package make_parser; package make_parser;
use strict; use strict;
use warnings 'all';
use setup qw($current_dir $wine_dir $winapi_dir); use setup qw($current_dir $wine_dir $winapi_dir);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package modules; package modules;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
#! /usr/bin/perl -w #!/usr/bin/perl
# Copyright 2002 Patrik Stridvall # Copyright 2002 Patrik Stridvall
use strict; use strict;
use warnings 'all';
BEGIN { BEGIN {
$0 =~ m%^(.*?/?tools)/winapi/msvcmaker$%; $0 =~ m%^(.*?/?tools)/winapi/msvcmaker$%;
......
...@@ -17,9 +17,11 @@ ...@@ -17,9 +17,11 @@
# #
package msvcmaker_options; package msvcmaker_options;
use base qw(options);
use strict; use strict;
use warnings 'all';
use base qw(options);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package nativeapi; package nativeapi;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package options; package options;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
...@@ -58,6 +59,7 @@ sub parse_value($$) { ...@@ -58,6 +59,7 @@ sub parse_value($$) {
package _options; package _options;
use strict; use strict;
use warnings 'all';
use output qw($output); use output qw($output);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package output; package output;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
...@@ -34,6 +35,7 @@ $output = '_output'->new; ...@@ -34,6 +35,7 @@ $output = '_output'->new;
package _output; package _output;
use strict; use strict;
use warnings 'all';
my $stdout_isatty = -t STDOUT; my $stdout_isatty = -t STDOUT;
my $stderr_isatty = -t STDERR; my $stderr_isatty = -t STDERR;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package preprocessor; package preprocessor;
use strict; use strict;
use warnings 'all';
sub new($) { sub new($) {
my $proto = shift; my $proto = shift;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package setup; package setup;
use strict; use strict;
use warnings 'all';
BEGIN { BEGIN {
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package tests; package tests;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package type; package type;
use strict; use strict;
use warnings 'all';
sub new($) { sub new($) {
my $proto = shift; my $proto = shift;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package util; package util;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
require Exporter; require Exporter;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package winapi; package winapi;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
#!/usr/bin/perl -w #!/usr/bin/perl
# Copyright 1999-2002 Patrik Stridvall # Copyright 1999-2002 Patrik Stridvall
# #
...@@ -28,6 +28,7 @@ ...@@ -28,6 +28,7 @@
# #
use strict; use strict;
use warnings 'all';
BEGIN { BEGIN {
$0 =~ m%^(.*?/?tools)/winapi/winapi_check$%; $0 =~ m%^(.*?/?tools)/winapi/winapi_check$%;
......
...@@ -17,9 +17,11 @@ ...@@ -17,9 +17,11 @@
# #
package winapi_check_options; package winapi_check_options;
use base qw(options);
use strict; use strict;
use warnings 'all';
use base qw(options);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
...@@ -161,9 +163,11 @@ my $options_usage = "usage: winapi_check [--help] [<files>]\n"; ...@@ -161,9 +163,11 @@ my $options_usage = "usage: winapi_check [--help] [<files>]\n";
$options = '_winapi_check_options'->new(\%options_long, \%options_short, $options_usage); $options = '_winapi_check_options'->new(\%options_long, \%options_short, $options_usage);
package _winapi_check_options; package _winapi_check_options;
use base qw(_options);
use strict; use strict;
use warnings 'all';
use base qw(_options);
sub report_module($$) { sub report_module($$) {
my $self = shift; my $self = shift;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package winapi_documentation; package winapi_documentation;
use strict; use strict;
use warnings 'all';
use config qw($current_dir $wine_dir); use config qw($current_dir $wine_dir);
use modules qw($modules); use modules qw($modules);
......
#!/usr/bin/perl -w #!/usr/bin/perl
# Copyright 2002 Patrik Stridvall # Copyright 2002 Patrik Stridvall
# #
...@@ -18,6 +18,7 @@ ...@@ -18,6 +18,7 @@
# #
use strict; use strict;
use warnings 'all';
BEGIN { BEGIN {
$0 =~ m%^(.*?/?tools)/winapi/winapi_extract$%; $0 =~ m%^(.*?/?tools)/winapi/winapi_extract$%;
......
...@@ -17,9 +17,11 @@ ...@@ -17,9 +17,11 @@
# #
package winapi_extract_options; package winapi_extract_options;
use base qw(options);
use strict; use strict;
use warnings 'all';
use base qw(options);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
...@@ -17,9 +17,11 @@ ...@@ -17,9 +17,11 @@
# #
package winapi_function; package winapi_function;
use base qw(function);
use strict; use strict;
use warnings 'all';
use base qw(function);
use config qw($current_dir $wine_dir); use config qw($current_dir $wine_dir);
use util qw(normalize_set); use util qw(normalize_set);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package winapi_global; package winapi_global;
use strict; use strict;
use warnings 'all';
use modules qw($modules); use modules qw($modules);
use nativeapi qw($nativeapi); use nativeapi qw($nativeapi);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package winapi_local; package winapi_local;
use strict; use strict;
use warnings 'all';
use nativeapi qw($nativeapi); use nativeapi qw($nativeapi);
use options qw($options); use options qw($options);
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package winapi_module_user; package winapi_module_user;
use strict; use strict;
use warnings 'all';
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
package winapi_parser; package winapi_parser;
use strict; use strict;
use warnings 'all';
use output qw($output); use output qw($output);
use options qw($options); use options qw($options);
......
#!/usr/bin/perl -w #!/usr/bin/perl
# Copyright 2002 Patrik Stridvall # Copyright 2002 Patrik Stridvall
# #
...@@ -18,6 +18,7 @@ ...@@ -18,6 +18,7 @@
# #
use strict; use strict;
use warnings 'all';
BEGIN { BEGIN {
$0 =~ m%^(.*?/?tools)/winapi/winapi_test$%; $0 =~ m%^(.*?/?tools)/winapi/winapi_test$%;
......
...@@ -17,9 +17,11 @@ ...@@ -17,9 +17,11 @@
# #
package winapi_test_options; package winapi_test_options;
use base qw(options);
use strict; use strict;
use warnings 'all';
use base qw(options);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter; require Exporter;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment