This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Enable Perl compile-time warnings at all places
authorPali <pali@cpan.org>
Mon, 1 Jul 2019 20:54:13 +0000 (22:54 +0200)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 20:51:14 +0000 (14:51 -0600)
(cherry picked from commit aad9feda2ec7fa8b44924162ed852de4ea074ab4)
Signed-off-by: Nicolas R <atoomic@cpan.org>
37 files changed:
dist/Devel-PPPort/PPPort_pm.PL
dist/Devel-PPPort/mktests.PL
dist/Devel-PPPort/t/01_test.t
dist/Devel-PPPort/t/HvNAME.t
dist/Devel-PPPort/t/MY_CXT.t
dist/Devel-PPPort/t/SvPV.t
dist/Devel-PPPort/t/SvREFCNT.t
dist/Devel-PPPort/t/Sv_set.t
dist/Devel-PPPort/t/call.t
dist/Devel-PPPort/t/cop.t
dist/Devel-PPPort/t/exception.t
dist/Devel-PPPort/t/format.t
dist/Devel-PPPort/t/grok.t
dist/Devel-PPPort/t/gv.t
dist/Devel-PPPort/t/limits.t
dist/Devel-PPPort/t/mPUSH.t
dist/Devel-PPPort/t/magic.t
dist/Devel-PPPort/t/memory.t
dist/Devel-PPPort/t/mess.t
dist/Devel-PPPort/t/misc.t
dist/Devel-PPPort/t/newCONSTSUB.t
dist/Devel-PPPort/t/newRV.t
dist/Devel-PPPort/t/newSV_type.t
dist/Devel-PPPort/t/newSVpv.t
dist/Devel-PPPort/t/podtest.t
dist/Devel-PPPort/t/ppphtest.t
dist/Devel-PPPort/t/pv_tools.t
dist/Devel-PPPort/t/pvs.t
dist/Devel-PPPort/t/shared_pv.t
dist/Devel-PPPort/t/snprintf.t
dist/Devel-PPPort/t/sprintf.t
dist/Devel-PPPort/t/strlfuncs.t
dist/Devel-PPPort/t/sv_xpvf.t
dist/Devel-PPPort/t/threads.t
dist/Devel-PPPort/t/uv.t
dist/Devel-PPPort/t/variables.t
dist/Devel-PPPort/t/warn.t

index 69d965a..ebe4fb2 100644 (file)
@@ -15,7 +15,7 @@
 ################################################################################
 
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 require "./parts/ppptools.pl";
 
 my $INCLUDE = 'parts/inc';
index 8b3e708..f99f7b5 100644 (file)
@@ -14,7 +14,7 @@
 ################################################################################
 
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 require "./parts/ppptools.pl";
 
 my $template = do { local $/; <DATA> };
@@ -100,7 +100,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index bce526a..5700efc 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 6bf39f1..8340c86 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index a94bd38..4c2dd21 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 392a0cc..9cd38d0 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 0b46a51..9fc963d 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index c1d5d05..26d9c58 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 4d3e80e..fd93c32 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 1a981cb..2afc169 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index c432df6..2d5d99e 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index a25ede5..7933c4b 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index b807ce8..f77e136 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 06dfed1..6c165f1 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index ed1cb2e..3a6e58f 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 2f38276..684d80d 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index ed74dff..332c010 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 74ecb99..158cfb6 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 76872aa..635218e 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 7fbd3e9..8dce185 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index cb207a4..73bb72c 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 731a62b..4a46b85 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 1b3233e..6e047ce 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index e9fee35..7a18677 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index c1a35b2..427f57d 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index daa5398..299c643 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index f79a15a..e4b3d4f 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index ff4d3e0..18d85ad 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index eac79c6..d58e400 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 0b90004..395210f 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 8b0d51f..c3543dc 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index c817547..d1ae481 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 4091986..8392548 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index a1c8caa..c915103 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index f036784..4a68b91 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 55da5a8..beffb46 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';
index 33900e9..06115bb 100644 (file)
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';