X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/5738fd423d16ea7bd432e3bca55c98d22996bbfd..6004d0b536ae2cf70b819b00b06aac42ce5ee7c1:/dist/Devel-PPPort/t/call.t

diff --git a/dist/Devel-PPPort/t/call.t b/dist/Devel-PPPort/t/call.t
index 2612270..957a77d 100644
--- a/dist/Devel-PPPort/t/call.t
+++ b/dist/Devel-PPPort/t/call.t
@@ -10,10 +10,12 @@
 #
 ################################################################################
 
+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 ]) {
@@ -21,13 +23,16 @@ BEGIN {
       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) {