diff options
Diffstat (limited to 'ext/B/t/b.t')
| -rwxr-xr-x | ext/B/t/b.t | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/ext/B/t/b.t b/ext/B/t/b.t index 0d2e8bc350..70f4f59064 100755 --- a/ext/B/t/b.t +++ b/ext/B/t/b.t @@ -1,12 +1,16 @@ #!./perl BEGIN { - chdir 't' if -d 't'; - if ($^O eq 'MacOS') { - @INC = qw(: ::lib ::macos:lib); + if ($ENV{PERL_CORE}){ + chdir('t') if -d 't'; + if ($^O eq 'MacOS') { + @INC = qw(: ::lib ::macos:lib); + } else { + @INC = '.'; + push @INC, '../lib'; + } } else { - @INC = '.'; - push @INC, '../lib'; + unshift @INC, 't'; } require Config; if (($Config::Config{'extensions'} !~ /\bB\b/) ){ |