Make sure PERL_INDIRECT_PM_DISABLE is not set before running tests

diff --git a/t/10-args.t b/t/10-args.t
index d7352955b295e46478be1e971a951d0711639e0c..4037c60eb95231591255b08f4c613dfc46b64018 100644 (file)
--- a/t/10-args.t
+++ b/t/10-args.t
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 4 + 1 + 1;
 
 
 use Test::More tests => 4 + 1 + 1;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 sub expect {
  my ($pkg) = @_;
  qr/^Indirect call of method "new" on object "$pkg" at \(eval \d+\) line \d+/;
 sub expect {
  my ($pkg) = @_;
  qr/^Indirect call of method "new" on object "$pkg" at \(eval \d+\) line \d+/;

diff --git a/t/11-line.t b/t/11-line.t
index 6832844cc7ff28ee8f3d880ed1a2c1aad361ac6a..3bebba0cc9b218358d9db67f9e50e41db8b387cc 100644 (file)
--- a/t/11-line.t
+++ b/t/11-line.t
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 3 * 4;
 
 
 use Test::More tests => 3 * 4;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 sub expect {
  my ($pkg, $line) = @_;
  return qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"$pkg"\s+at\s+\(eval\s+\d+\)\s+line\s+$line/;
 sub expect {
  my ($pkg, $line) = @_;
  return qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"$pkg"\s+at\s+\(eval\s+\d+\)\s+line\s+$line/;

diff --git a/t/20-good.t b/t/20-good.t
index 4a7c3a0fa0fa6e7860787e759ac4e0725860e5de..353949893fe4d9fdb2117ba5b4c393638fe5e9ec 100644 (file)
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -11,6 +11,8 @@ use warnings;
 
 use Test::More tests => 56 * 8;
 
 
 use Test::More tests => 56 * 8;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 my ($obj, $pkg, $cb, $x, @a);
 our $y;
 sub meh;
 my ($obj, $pkg, $cb, $x, @a);
 our $y;
 sub meh;

diff --git a/t/21-bad.t b/t/21-bad.t
index 6852426a69e536872c7571929d4315bd3ea3736d..f4231d72ae1517d3a23fd2c7e1f3186c8ff35126 100644 (file)
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -17,6 +17,8 @@ BEGIN {
 
 use Test::More tests => 3 * (4 * $tests + $reports) + 4;
 
 
 use Test::More tests => 3 * (4 * $tests + $reports) + 4;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 my ($obj, $x);
 our ($y, $bloop);
 
 my ($obj, $x);
 our ($y, $bloop);
 

diff --git a/t/22-bad-mixed.t b/t/22-bad-mixed.t
index 57282e203afd0b02ad41d8f7654dfe7b7cf4f6e1..cff75658737a885ebd4a3da0bd9c895e01942bcd 100644 (file)
--- a/t/22-bad-mixed.t
+++ b/t/22-bad-mixed.t
@@ -11,6 +11,8 @@ use warnings;
 
 use Test::More tests => 3 * 9;
 
 
 use Test::More tests => 3 * 9;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 sub meh;
 
 my @warns;
 sub meh;
 
 my @warns;

diff --git a/t/23-bad-notaint.t b/t/23-bad-notaint.t
index cb7580beac51dc3b95510642e092a8fb09b81c7e..200380d01572117b3c125cb68c89459693f956c0 100644 (file)
--- a/t/23-bad-notaint.t
+++ b/t/23-bad-notaint.t
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 1;
 
 
 use Test::More tests => 1;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 {
  my @warns;
  {
 {
  my @warns;
  {

diff --git a/t/30-scope.t b/t/30-scope.t
index 14b987cb17de043947003fce4d9a0d9dc85374cb..78b2b1dad86ba8fcfbe8e881f06ad79401cdec19 100644 (file)
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -8,6 +8,8 @@ BEGIN { $tests = 18 }
 
 use Test::More tests => (1 + $tests + 1) + 3 + 3 + 3 + 5 + 1;
 
 
 use Test::More tests => (1 + $tests + 1) + 3 + 3 + 3 + 5 + 1;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 use lib 't/lib';
 
 my %wrong = map { $_ => 1 } 2, 3, 5, 7, 9, 10, 14, 15, 17, 18;
 use lib 't/lib';
 
 my %wrong = map { $_ => 1 } 2, 3, 5, 7, 9, 10, 14, 15, 17, 18;

diff --git a/t/40-threads.t b/t/40-threads.t
index 0bae40abaa28a962183f05e844e0ee5c346555fe..16af4ca9656a0a72f282e39d71ca33b07961a7e9 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -18,6 +18,7 @@ use threads;
 use Test::More;
 
 BEGIN {
 use Test::More;
 
 BEGIN {

+ delete $ENV{PERL_INDIRECT_PM_DISABLE};

  require indirect;
  if (indirect::I_THREADSAFE()) {
   plan tests => 10 * 2 * (2 + 3);
  require indirect;
  if (indirect::I_THREADSAFE()) {
   plan tests => 10 * 2 * (2 + 3);

diff --git a/t/41-memory.t b/t/41-memory.t
index 02289296783032743373be31ce533f165ae281e2..6805d9e49fc75f6fe4cc753bf5925bd33a447457 100644 (file)
--- a/t/41-memory.t
+++ b/t/41-memory.t
@@ -4,5 +4,7 @@ use lib 't/lib';
 
 use Test::More tests => 1;
 
 
 use Test::More tests => 1;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 eval "require indirect::Test0::Oooooo::Pppppppp";
 is($@, '', 'memory reallocation to an uncatched optype');
 eval "require indirect::Test0::Oooooo::Pppppppp";
 is($@, '', 'memory reallocation to an uncatched optype');

diff --git a/t/42-stress.t b/t/42-stress.t
index bb31787c58457d52f1e740e6db4e813598a040d8..cf474a8377c01574dff059508d374d5ce4b68237 100644 (file)
--- a/t/42-stress.t
+++ b/t/42-stress.t
@@ -8,6 +8,8 @@ BEGIN { $count = 1_000 }
 
 use Test::More tests => 2 * $count;
 
 
 use Test::More tests => 2 * $count;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 for (1 .. $count) {
  my @errs;
  {
 for (1 .. $count) {
  my @errs;
  {

diff --git a/t/80-regressions.t b/t/80-regressions.t
index b9267303da14338f97b9715facf82fa99011ddb6..19a66938aaeb0bfa8ac3ad38048bdd696229d433 100644 (file)
--- a/t/80-regressions.t
+++ b/t/80-regressions.t
@@ -5,6 +5,8 @@ use warnings;
 
 use Test::More tests => 1;
 
 
 use Test::More tests => 1;
 

+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+

 sub run_perl {
  my $code = shift;
 
 sub run_perl {
  my $code = shift;