#!./perl -w
BEGIN {
- chdir 't' if -d 't';
- @INC = ('../lib', 'lib', '.');
+ if ($ENV{PERL_CORE}){
+ chdir('t') if -d 't';
+ @INC = ('.', 'lib', '../lib');
+ } 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";
+ exit 0;
+ }
require 'test.pl';
}
END {
1 while unlink($file);
+ rmdir($path); # not "1 while" since there might be more in there
}
__END__