winapi: Update 'perl -w' to 'use warnings 'all''.
Signed-off-by: Serge Gautherie <winehq-git_serge_180711@gautherie.fr> Signed-off-by: Francois Gouget <fgouget@free.fr> Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
parent
a771e58ef3
commit
866f672505
|
@ -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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
package function;
|
package function;
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
use warnings 'all';
|
||||||
|
|
||||||
sub new($) {
|
sub new($) {
|
||||||
my $proto = shift;
|
my $proto = shift;
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#! /usr/bin/perl -w
|
#!/usr/bin/perl
|
||||||
#
|
#
|
||||||
# Copyright 1999, 2000, 2001 Patrik Stridvall
|
# Copyright 1999, 2000, 2001 Patrik Stridvall
|
||||||
#
|
#
|
||||||
|
@ -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 @@
|
||||||
#
|
#
|
||||||
|
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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;
|
||||||
|
|
|
@ -1,8 +1,9 @@
|
||||||
#! /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 @@
|
||||||
#
|
#
|
||||||
|
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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($$) {
|
||||||
package _options;
|
package _options;
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
use warnings 'all';
|
||||||
|
|
||||||
use output qw($output);
|
use output qw($output);
|
||||||
|
|
||||||
|
|
|
@ -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;
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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;
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl
|
||||||
|
|
||||||
# Copyright 1999-2002 Patrik Stridvall
|
# Copyright 1999-2002 Patrik Stridvall
|
||||||
#
|
#
|
||||||
|
@ -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 @@
|
||||||
#
|
#
|
||||||
|
|
||||||
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";
|
||||||
$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 @@
|
||||||
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);
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl
|
||||||
|
|
||||||
# Copyright 2002 Patrik Stridvall
|
# Copyright 2002 Patrik Stridvall
|
||||||
#
|
#
|
||||||
|
@ -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 @@
|
||||||
#
|
#
|
||||||
|
|
||||||
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 @@
|
||||||
#
|
#
|
||||||
|
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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 @@
|
||||||
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);
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl
|
||||||
|
|
||||||
# Copyright 2002 Patrik Stridvall
|
# Copyright 2002 Patrik Stridvall
|
||||||
#
|
#
|
||||||
|
@ -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 @@
|
||||||
#
|
#
|
||||||
|
|
||||||
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;
|
||||||
|
|
Loading…
Reference in New Issue