From: Vincent Pit <vince@profvince.com>
Date: Tue, 12 Aug 2008 15:10:01 +0000 (+0200)
Subject: Add PERL5OPT to the flags passed to the forked perls
X-Git-Tag: v0.03~2
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=93e46f6f746b5a546672c36dc0608aa035abee37;p=perl%2Fmodules%2Findirect.git

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 523fc4b..51c3d8f 100644
--- 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),
+          $ENV{PERL5OPT} || '',
           '-M-indirect',
           '-c',
           't/data/good.d'
diff --git a/t/11-good-use.t b/t/11-good-use.t
index 828b933..2e8035e 100644
--- 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),
+          $ENV{PERL5OPT} || '',
           '-Mindirect',
           '-c',
           't/data/good.d'
diff --git a/t/20-bad-no.t b/t/20-bad-no.t
index f7acd5d..5d82d95 100644
--- 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),
+          $ENV{PERL5OPT} || '',
           '-M-indirect',
           '-c',
           't/data/bad.d'
diff --git a/t/21-bad-use.t b/t/21-bad-use.t
index dc2ca5a..f678695 100644
--- 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),
+          $ENV{PERL5OPT} || '',
           '-Mindirect',
           '-c',
           't/data/bad.d'
diff --git a/t/22-bad-fatal.t b/t/22-bad-fatal.t
index e374a8d..d87fbb6 100644
--- 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),
+          $ENV{PERL5OPT} || '',
           '-M-indirect=:fatal',
           '-c',
           't/data/bad.d'
diff --git a/t/30-scope.t b/t/30-scope.t
index b9c7154..2eceddb 100644
--- 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),
+          $ENV{PERL5OPT} || '',
           '-c',
           't/data/mixed.d'
    ];