1 files changed, 20 insertions, 2 deletions
diff --git a/lib/bignum/t/biinfnan.t b/lib/bignum/t/biinfnan.t
index 84d3a71bfa..758bed1e58 100644
--- a/lib/bignum/t/biinfnan.t
+++ b/lib/bignum/t/biinfnan.t
@@ -8,8 +8,26 @@ use strict;
 BEGIN
   {
   $| = 1;
-  chdir 't' if -d 't';
-  unshift @INC, '../lib';
+  my $location = $0; $location =~ s{^(.*/).*}{$1};
+  if ($ENV{PERL_CORE})
+    {
+    @INC = qw(../lib);          # testing with the core distribution
+    }
+  else
+    {
+    unshift @INC, '../lib';     # for testing manually
+    }
+  if (-d 't')
+    {
+    chdir 't';
+    require File::Spec;
+    unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
+    }
+  else
+    {
+    unshift @INC, $location;
+    }
+  print "# INC = @INC\n";
   plan tests => 26;
   }