diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-02-21 13:31:57 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-02-21 13:31:57 +0000 |
commit | 115e9681b8231e4672c4d1f4ad598dba6f23a54c (patch) | |
tree | 1cd2a4ceede804e698b83dc469c19a76584c002a /t | |
parent | 44bcdf2982dc8e16a1775b26b660a1716a7bf3be (diff) | |
download | perl-115e9681b8231e4672c4d1f4ad598dba6f23a54c.tar.gz |
In t/TEST, automatically detect if running under miniperl
Set $ENV{PERL_CORE_MINITEST} based on defined &DynaLoader::boot_DynaLoader,
instead of relying on a -minitest parameter. &DynaLoader::boot_DynaLoader is
undefined in miniperl, defined in perl, for both -Dusedl and -Uusedl
Diffstat (limited to 't')
-rwxr-xr-x | t/TEST | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -124,7 +124,6 @@ our $show_elapsed_time = $ENV{HARNESS_TIMER} || 0; $::with_utf8 = 1 if $1 eq 'utf8'; $::with_utf16 = 1 if $1 eq 'utf16'; $::taintwarn = 1 if $1 eq 'taintwarn'; - $ENV{PERL_CORE_MINITEST} = 1 if $1 eq 'minitest'; if ($1 =~ /^deparse(,.+)?$/) { $::deparse = 1; $::deparse_opts = $1; @@ -133,6 +132,8 @@ our $show_elapsed_time = $ENV{HARNESS_TIMER} || 0; @ARGV = @argv; } +$ENV{PERL_CORE_MINITEST} = 1 unless defined &DynaLoader::boot_DynaLoader; + chdir 't' if -f 't/TEST'; if (-f 'TEST' && -f 'harness' && -d '../lib') { @INC = '../lib'; |