Skip to content

Commit

Permalink
Add 'use warnings' to all the modules
Browse files Browse the repository at this point in the history
  • Loading branch information
bingos committed Aug 3, 2020
1 parent f37dd0d commit 06c0359
Show file tree
Hide file tree
Showing 28 changed files with 31 additions and 4 deletions.
1 change: 1 addition & 0 deletions lib/ExtUtils/Command.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,7 @@ package ExtUtils::Command;

use 5.00503;
use strict;
use warnings;
require Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
@ISA = qw(Exporter);
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/Liblist.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::Liblist;

use strict;
use warnings;

our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM;

use strict;
use warnings;
use ExtUtils::MakeMaker::Config;

our $VERSION = '7.47_06';
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_AIX.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_AIX;

use strict;
use warnings;
our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;

Expand Down
3 changes: 2 additions & 1 deletion lib/ExtUtils/MM_Any.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_Any;

use strict;
use warnings;
our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;

Expand Down Expand Up @@ -1670,7 +1671,7 @@ sub _mymeta_from_meta {
# rolled their own tarball rather than using "make dist".
if ($meta->{generated_by} &&
$meta->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {
my $eummv = do { local $^W = 0; $1+0; };
my $eummv = do { no warnings; $1+0; };
if ($eummv < 6.2501) {
return;
}
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_BeOS.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_BeOS;

use strict;
use warnings;

=head1 NAME
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_Cygwin.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_Cygwin;

use strict;
use warnings;

use ExtUtils::MakeMaker::Config;
use File::Spec;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_DOS.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_DOS;

use strict;
use warnings;

our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_Darwin.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_Darwin;

use strict;
use warnings;

BEGIN {
require ExtUtils::MM_Unix;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_MacOS.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_MacOS;

use strict;
use warnings;

our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_NW5.pm
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,7 @@ the semantics.
=cut

use strict;
use warnings;
use ExtUtils::MakeMaker::Config;
use File::Basename;

Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_OS2.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_OS2;

use strict;
use warnings;

use ExtUtils::MakeMaker qw(neatvalue);
use File::Spec;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_OS390.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_OS390;

use strict;
use warnings;
our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;

Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_QNX.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_QNX;

use strict;
use warnings;
our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;

Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_UWIN.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_UWIN;

use strict;
use warnings;
our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;

Expand Down
5 changes: 3 additions & 2 deletions lib/ExtUtils/MM_Unix.pm
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,7 @@ package ExtUtils::MM_Unix;
require 5.006;

use strict;
use warnings;

use Carp;
use ExtUtils::MakeMaker::Config;
Expand Down Expand Up @@ -3000,7 +3001,7 @@ sub parse_version {
chop;
next if /^\s*(if|unless|elsif)/;
if ( m{^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* (;|\{) }x ) {
local $^W = 0;
no warnings;
$result = $1;
}
elsif ( m{(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* (?<![<>=!])\=[^=]}x ) {
Expand Down Expand Up @@ -3037,8 +3038,8 @@ sub get_version {
version::->import;
};
no strict;
no warnings;
local *{$name};
local $^W = 0;
$line = $1 if $line =~ m{^(.+)}s;
eval($line); ## no critic
return ${$name};
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_VMS.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_VMS;

use strict;
use warnings;

use ExtUtils::MakeMaker::Config;
require Exporter;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_VOS.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_VOS;

use strict;
use warnings;
our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;

Expand Down
2 changes: 1 addition & 1 deletion lib/ExtUtils/MM_Win32.pm
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
package ExtUtils::MM_Win32;

use strict;

use warnings;

=head1 NAME
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MM_Win95.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MM_Win95;

use strict;
use warnings;

our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MakeMaker.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,7 @@
package ExtUtils::MakeMaker;

use strict;
use warnings;

BEGIN {require 5.006;}

Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MakeMaker/Config.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MakeMaker::Config;

use strict;
use warnings;

our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MakeMaker/Locale.pm
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
package ExtUtils::MakeMaker::Locale;

use strict;
use warnings;
our $VERSION = "7.47_06";
$VERSION =~ tr/_//d;

Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MakeMaker/version.pm
Original file line number Diff line number Diff line change
Expand Up @@ -12,6 +12,7 @@ package ExtUtils::MakeMaker::version;

use 5.006001;
use strict;
use warnings;

use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);

Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MakeMaker/version/regex.pm
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,7 @@
package ExtUtils::MakeMaker::version::regex;

use strict;
use warnings;

use vars qw($VERSION $CLASS $STRICT $LAX);

Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/MakeMaker/version/vpp.pm
Original file line number Diff line number Diff line change
Expand Up @@ -125,6 +125,7 @@ package ExtUtils::MakeMaker::version::vpp;

use 5.006001;
use strict;
use warnings;

use Config;
use vars qw($VERSION $CLASS @ISA $LAX $STRICT);
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/Mkbootstrap.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,7 @@ package ExtUtils::Mkbootstrap;

# There's just too much Dynaloader incest here to turn on strict vars.
use strict 'refs';
use warnings;

our $VERSION = '7.47_06';
$VERSION =~ tr/_//d;
Expand Down
1 change: 1 addition & 0 deletions lib/ExtUtils/Mksymlists.pm
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,7 @@ package ExtUtils::Mksymlists;
use 5.006;
use strict qw[ subs refs ];
# no strict 'vars'; # until filehandles are exempted
use warnings;

use Carp;
use Exporter;
Expand Down

0 comments on commit 06c0359

Please sign in to comment.