]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Add PERL5OPT to the flags passed to the forked perls
authorVincent Pit <vince@profvince.com>
Tue, 12 Aug 2008 15:10:01 +0000 (17:10 +0200)
committerVincent Pit <vince@profvince.com>
Tue, 12 Aug 2008 15:10:01 +0000 (17:10 +0200)
t/10-good-no.t
t/11-good-use.t
t/20-bad-no.t
t/21-bad-use.t
t/22-bad-fatal.t
t/30-scope.t

index 523fc4ba97e10698a55fa51e458abdaaad47ec90..51c3d8ffdaf0a00d0b1a6cf654312513ba300b77 100644 (file)
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
+          $ENV{PERL5OPT} || '',
           '-M-indirect',
           '-c',
           't/data/good.d'
index 828b93362a7b732bf2451c8dfaaca487cba74aea..2e8035ed2a1fc931b1127815d5658b78ceea965d 100644 (file)
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
+          $ENV{PERL5OPT} || '',
           '-Mindirect',
           '-c',
           't/data/good.d'
index f7acd5de45acfccf3b0883280b4ba4591e3bf1b7..5d82d9551cd4143a3fad988a3d2025548d20a27a 100644 (file)
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
+          $ENV{PERL5OPT} || '',
           '-M-indirect',
           '-c',
           't/data/bad.d'
index dc2ca5af92c1e00a3f840b1587400ca879b429b3..f6786954e42bc03043fc360d690bf672116aefc0 100644 (file)
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
+          $ENV{PERL5OPT} || '',
           '-Mindirect',
           '-c',
           't/data/bad.d'
index e374a8df8cd0fcf01fd88d2ab182e83b30c0cbf9..d87fbb66717664f3b7c1e876594ad631472a4cc8 100644 (file)
@@ -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'
index b9c71545dd1ede3a5627eea26f4c74a3a01ca944..2eceddb401b03cb92981e3763ee0c5d3401515b5 100644 (file)
@@ -13,6 +13,7 @@ use IPC::Cmd qw/run/;
  = run command => [
           $^X,
           map('-I' . $_, @INC),
+          $ENV{PERL5OPT} || '',
           '-c',
           't/data/mixed.d'
    ];