Enable Perl compile-time warnings at all places

(cherry picked from commit aad9feda2ec7fa8b44924162ed852de4ea074ab4)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/PPPort_pm.PL b/dist/Devel-PPPort/PPPort_pm.PL
index 69d965a..ebe4fb2 100644 (file)
--- a/dist/Devel-PPPort/PPPort_pm.PL
+++ b/dist/Devel-PPPort/PPPort_pm.PL
@@ -15,7 +15,7 @@
 ################################################################################
 
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 require "./parts/ppptools.pl";
 
 my $INCLUDE = 'parts/inc';

diff --git a/dist/Devel-PPPort/mktests.PL b/dist/Devel-PPPort/mktests.PL
index 8b3e708..f99f7b5 100644 (file)
--- a/dist/Devel-PPPort/mktests.PL
+++ b/dist/Devel-PPPort/mktests.PL
@@ -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';

diff --git a/dist/Devel-PPPort/t/01_test.t b/dist/Devel-PPPort/t/01_test.t
index bce526a..5700efc 100644 (file)
--- a/dist/Devel-PPPort/t/01_test.t
+++ b/dist/Devel-PPPort/t/01_test.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/HvNAME.t b/dist/Devel-PPPort/t/HvNAME.t
index 6bf39f1..8340c86 100644 (file)
--- a/dist/Devel-PPPort/t/HvNAME.t
+++ b/dist/Devel-PPPort/t/HvNAME.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/MY_CXT.t b/dist/Devel-PPPort/t/MY_CXT.t
index a94bd38..4c2dd21 100644 (file)
--- a/dist/Devel-PPPort/t/MY_CXT.t
+++ b/dist/Devel-PPPort/t/MY_CXT.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/SvPV.t b/dist/Devel-PPPort/t/SvPV.t
index 392a0cc..9cd38d0 100644 (file)
--- a/dist/Devel-PPPort/t/SvPV.t
+++ b/dist/Devel-PPPort/t/SvPV.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/SvREFCNT.t b/dist/Devel-PPPort/t/SvREFCNT.t
index 0b46a51..9fc963d 100644 (file)
--- a/dist/Devel-PPPort/t/SvREFCNT.t
+++ b/dist/Devel-PPPort/t/SvREFCNT.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/Sv_set.t b/dist/Devel-PPPort/t/Sv_set.t
index c1d5d05..26d9c58 100644 (file)
--- a/dist/Devel-PPPort/t/Sv_set.t
+++ b/dist/Devel-PPPort/t/Sv_set.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/call.t b/dist/Devel-PPPort/t/call.t
index 4d3e80e..fd93c32 100644 (file)
--- a/dist/Devel-PPPort/t/call.t
+++ b/dist/Devel-PPPort/t/call.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/cop.t b/dist/Devel-PPPort/t/cop.t
index 1a981cb..2afc169 100644 (file)
--- a/dist/Devel-PPPort/t/cop.t
+++ b/dist/Devel-PPPort/t/cop.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/exception.t b/dist/Devel-PPPort/t/exception.t
index c432df6..2d5d99e 100644 (file)
--- a/dist/Devel-PPPort/t/exception.t
+++ b/dist/Devel-PPPort/t/exception.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/format.t b/dist/Devel-PPPort/t/format.t
index a25ede5..7933c4b 100644 (file)
--- a/dist/Devel-PPPort/t/format.t
+++ b/dist/Devel-PPPort/t/format.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/grok.t b/dist/Devel-PPPort/t/grok.t
index b807ce8..f77e136 100644 (file)
--- a/dist/Devel-PPPort/t/grok.t
+++ b/dist/Devel-PPPort/t/grok.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/gv.t b/dist/Devel-PPPort/t/gv.t
index 06dfed1..6c165f1 100644 (file)
--- a/dist/Devel-PPPort/t/gv.t
+++ b/dist/Devel-PPPort/t/gv.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/limits.t b/dist/Devel-PPPort/t/limits.t
index ed1cb2e..3a6e58f 100644 (file)
--- a/dist/Devel-PPPort/t/limits.t
+++ b/dist/Devel-PPPort/t/limits.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/mPUSH.t b/dist/Devel-PPPort/t/mPUSH.t
index 2f38276..684d80d 100644 (file)
--- a/dist/Devel-PPPort/t/mPUSH.t
+++ b/dist/Devel-PPPort/t/mPUSH.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/magic.t b/dist/Devel-PPPort/t/magic.t
index ed74dff..332c010 100644 (file)
--- a/dist/Devel-PPPort/t/magic.t
+++ b/dist/Devel-PPPort/t/magic.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/memory.t b/dist/Devel-PPPort/t/memory.t
index 74ecb99..158cfb6 100644 (file)
--- a/dist/Devel-PPPort/t/memory.t
+++ b/dist/Devel-PPPort/t/memory.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/mess.t b/dist/Devel-PPPort/t/mess.t
index 76872aa..635218e 100644 (file)
--- a/dist/Devel-PPPort/t/mess.t
+++ b/dist/Devel-PPPort/t/mess.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/misc.t b/dist/Devel-PPPort/t/misc.t
index 7fbd3e9..8dce185 100644 (file)
--- a/dist/Devel-PPPort/t/misc.t
+++ b/dist/Devel-PPPort/t/misc.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/newCONSTSUB.t b/dist/Devel-PPPort/t/newCONSTSUB.t
index cb207a4..73bb72c 100644 (file)
--- a/dist/Devel-PPPort/t/newCONSTSUB.t
+++ b/dist/Devel-PPPort/t/newCONSTSUB.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/newRV.t b/dist/Devel-PPPort/t/newRV.t
index 731a62b..4a46b85 100644 (file)
--- a/dist/Devel-PPPort/t/newRV.t
+++ b/dist/Devel-PPPort/t/newRV.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/newSV_type.t b/dist/Devel-PPPort/t/newSV_type.t
index 1b3233e..6e047ce 100644 (file)
--- a/dist/Devel-PPPort/t/newSV_type.t
+++ b/dist/Devel-PPPort/t/newSV_type.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/newSVpv.t b/dist/Devel-PPPort/t/newSVpv.t
index e9fee35..7a18677 100644 (file)
--- a/dist/Devel-PPPort/t/newSVpv.t
+++ b/dist/Devel-PPPort/t/newSVpv.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/podtest.t b/dist/Devel-PPPort/t/podtest.t
index c1a35b2..427f57d 100644 (file)
--- a/dist/Devel-PPPort/t/podtest.t
+++ b/dist/Devel-PPPort/t/podtest.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/ppphtest.t b/dist/Devel-PPPort/t/ppphtest.t
index daa5398..299c643 100644 (file)
--- a/dist/Devel-PPPort/t/ppphtest.t
+++ b/dist/Devel-PPPort/t/ppphtest.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/pv_tools.t b/dist/Devel-PPPort/t/pv_tools.t
index f79a15a..e4b3d4f 100644 (file)
--- a/dist/Devel-PPPort/t/pv_tools.t
+++ b/dist/Devel-PPPort/t/pv_tools.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/pvs.t b/dist/Devel-PPPort/t/pvs.t
index ff4d3e0..18d85ad 100644 (file)
--- a/dist/Devel-PPPort/t/pvs.t
+++ b/dist/Devel-PPPort/t/pvs.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/shared_pv.t b/dist/Devel-PPPort/t/shared_pv.t
index eac79c6..d58e400 100644 (file)
--- a/dist/Devel-PPPort/t/shared_pv.t
+++ b/dist/Devel-PPPort/t/shared_pv.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/snprintf.t b/dist/Devel-PPPort/t/snprintf.t
index 0b90004..395210f 100644 (file)
--- a/dist/Devel-PPPort/t/snprintf.t
+++ b/dist/Devel-PPPort/t/snprintf.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/sprintf.t b/dist/Devel-PPPort/t/sprintf.t
index 8b0d51f..c3543dc 100644 (file)
--- a/dist/Devel-PPPort/t/sprintf.t
+++ b/dist/Devel-PPPort/t/sprintf.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/strlfuncs.t b/dist/Devel-PPPort/t/strlfuncs.t
index c817547..d1ae481 100644 (file)
--- a/dist/Devel-PPPort/t/strlfuncs.t
+++ b/dist/Devel-PPPort/t/strlfuncs.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/sv_xpvf.t b/dist/Devel-PPPort/t/sv_xpvf.t
index 4091986..8392548 100644 (file)
--- a/dist/Devel-PPPort/t/sv_xpvf.t
+++ b/dist/Devel-PPPort/t/sv_xpvf.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/threads.t b/dist/Devel-PPPort/t/threads.t
index a1c8caa..c915103 100644 (file)
--- a/dist/Devel-PPPort/t/threads.t
+++ b/dist/Devel-PPPort/t/threads.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/uv.t b/dist/Devel-PPPort/t/uv.t
index f036784..4a68b91 100644 (file)
--- a/dist/Devel-PPPort/t/uv.t
+++ b/dist/Devel-PPPort/t/uv.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/variables.t b/dist/Devel-PPPort/t/variables.t
index 55da5a8..beffb46 100644 (file)
--- a/dist/Devel-PPPort/t/variables.t
+++ b/dist/Devel-PPPort/t/variables.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';

diff --git a/dist/Devel-PPPort/t/warn.t b/dist/Devel-PPPort/t/warn.t
index 33900e9..06115bb 100644 (file)
--- a/dist/Devel-PPPort/t/warn.t
+++ b/dist/Devel-PPPort/t/warn.t
@@ -38,7 +38,7 @@ BEGIN {
 
 use Devel::PPPort;
 use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
 
 package Devel::PPPort;
 use vars '@ISA';