#!perl
BEGIN {
- chdir q(t);
- @INC = qw(../lib ../ext/B/t);
+ if ($ENV{PERL_CORE}){
+ chdir('t') if -d 't';
+ @INC = ('.', '../lib', '../ext/B/t');
+ } else {
+ unshift @INC, 't';
+ push @INC, "../../t";
+ }
require Config;
if (($Config::Config{'extensions'} !~ /\bB\b/) ){
print "1..0 # Skip -- Perl configured without B module\n";
print "1..0 # Skip -- TODO - provide golden result regexps for 5.8\n";
exit 0;
}
- require q(./test.pl);
+ require q(test.pl);
}
use OptreeCheck;
plan tests => 9;