summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-02-21 13:31:57 +0000
committerNicholas Clark <nick@ccl4.org>2011-02-21 13:31:57 +0000
commit115e9681b8231e4672c4d1f4ad598dba6f23a54c (patch)
tree1cd2a4ceede804e698b83dc469c19a76584c002a /t
parent44bcdf2982dc8e16a1775b26b660a1716a7bf3be (diff)
downloadperl-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-xt/TEST3
1 files changed, 2 insertions, 1 deletions
diff --git a/t/TEST b/t/TEST
index 51b6df489c..afe7f494f5 100755
--- a/t/TEST
+++ b/t/TEST
@@ -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';