#
################################################################################
+use FindBin ();
+
BEGIN {
if ($ENV{'PERL_CORE'}) {
chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
+ unshift @INC, '../lib' if -d '../lib' && -d '../ext';
require Config; import Config;
use vars '%Config';
if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
exit 0;
}
}
- else {
- unshift @INC, 't';
- }
+
+ use lib "$FindBin::Bin";
+ use lib "$FindBin::Bin/../parts/inc";
+
+ die qq[Cannot find "$FindBin::Bin/../parts/inc"] unless -d "$FindBin::Bin/../parts/inc";
sub load {
eval "use Test";
require 'testutil.pl' if $@;
+ require 'inctools';
}
if (86) {