Add PERL5OPT to the flags passed to the forked perls

diff --git a/t/10-good-no.t b/t/10-good-no.t
index 523fc4ba97e10698a55fa51e458abdaaad47ec90..51c3d8ffdaf0a00d0b1a6cf654312513ba300b77 100644 (file)
--- a/t/10-good-no.t
+++ b/t/10-good-no.t
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
  = run command => [
           $^X,
           map('-I' . $_, @INC),

+          $ENV{PERL5OPT} || '',

           '-M-indirect',
           '-c',
           't/data/good.d'
           '-M-indirect',
           '-c',
           't/data/good.d'

diff --git a/t/11-good-use.t b/t/11-good-use.t
index 828b93362a7b732bf2451c8dfaaca487cba74aea..2e8035ed2a1fc931b1127815d5658b78ceea965d 100644 (file)
--- a/t/11-good-use.t
+++ b/t/11-good-use.t
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
  = run command => [
           $^X,
           map('-I' . $_, @INC),

+          $ENV{PERL5OPT} || '',

           '-Mindirect',
           '-c',
           't/data/good.d'
           '-Mindirect',
           '-c',
           't/data/good.d'

diff --git a/t/20-bad-no.t b/t/20-bad-no.t
index f7acd5de45acfccf3b0883280b4ba4591e3bf1b7..5d82d9551cd4143a3fad988a3d2025548d20a27a 100644 (file)
--- a/t/20-bad-no.t
+++ b/t/20-bad-no.t
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
  = run command => [
           $^X,
           map('-I' . $_, @INC),

+          $ENV{PERL5OPT} || '',

           '-M-indirect',
           '-c',
           't/data/bad.d'
           '-M-indirect',
           '-c',
           't/data/bad.d'

diff --git a/t/21-bad-use.t b/t/21-bad-use.t
index dc2ca5af92c1e00a3f840b1587400ca879b429b3..f6786954e42bc03043fc360d690bf672116aefc0 100644 (file)
--- a/t/21-bad-use.t
+++ b/t/21-bad-use.t
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
  = run command => [
           $^X,
           map('-I' . $_, @INC),

+          $ENV{PERL5OPT} || '',

           '-Mindirect',
           '-c',
           't/data/bad.d'
           '-Mindirect',
           '-c',
           't/data/bad.d'

diff --git a/t/22-bad-fatal.t b/t/22-bad-fatal.t
index e374a8df8cd0fcf01fd88d2ab182e83b30c0cbf9..d87fbb66717664f3b7c1e876594ad631472a4cc8 100644 (file)
--- a/t/22-bad-fatal.t
+++ b/t/22-bad-fatal.t
@@ -11,6 +11,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
  = run command => [
           $^X,
           map('-I' . $_, @INC),

+          $ENV{PERL5OPT} || '',

           '-M-indirect=:fatal',
           '-c',
           't/data/bad.d'
           '-M-indirect=:fatal',
           '-c',
           't/data/bad.d'

diff --git a/t/30-scope.t b/t/30-scope.t
index b9c71545dd1ede3a5627eea26f4c74a3a01ca944..2eceddb401b03cb92981e3763ee0c5d3401515b5 100644 (file)
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
  = run command => [
           $^X,
           map('-I' . $_, @INC),

+          $ENV{PERL5OPT} || '',

           '-c',
           't/data/mixed.d'
    ];
           '-c',
           't/data/mixed.d'
    ];