diff --git a/cpan/Filter-Util-Call/t/call.t b/cpan/Filter-Util-Call/t/call.t
index b2a0cad95f00..843304c0172f 100644
--- a/cpan/Filter-Util-Call/t/call.t
+++ b/cpan/Filter-Util-Call/t/call.t
@@ -1,4 +1,8 @@
 use Config;
+
+use FindBin;
+use lib "$FindBin::Bin/.."; # required to load filter-util.pl
+
 BEGIN {
     if ($ENV{PERL_CORE}) {
         if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) {
@@ -7,7 +11,6 @@ BEGIN {
         }
     }
     unshift @INC, 't';
-    require 'filter-util.pl';
 }
 
 use strict;
@@ -15,6 +18,8 @@ use warnings;
 
 use vars qw($Inc $Perl);
 
+require 'filter-util.pl';
+
 print "1..34\n";
 
 $Perl = "$Perl -w";
diff --git a/cpan/Filter-Util-Call/t/rt_54452-rebless.t b/cpan/Filter-Util-Call/t/rt_54452-rebless.t
index c212b2d1ee78..70d90afc7121 100644
--- a/cpan/Filter-Util-Call/t/rt_54452-rebless.t
+++ b/cpan/Filter-Util-Call/t/rt_54452-rebless.t
@@ -8,6 +8,10 @@ if ($] < 5.004_55) {
 
 use strict;
 use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/.."; # required to load filter-util.pl
+
 BEGIN { unshift @INC, 't'; }
 
 require "filter-util.pl" ;
diff --git a/t/TEST b/t/TEST
index 9a4b4e7a28ef..95a03f05eb8f 100755
--- a/t/TEST
+++ b/t/TEST
@@ -82,7 +82,6 @@ my %temp_no_core =
 # Ideally this # list will eventually be empty
 
 my %temp_needs_dot  = map { $_ => 1 } qw(
-    ../cpan/Filter-Util-Call
     ../cpan/libnet
     ../cpan/Test-Simple
 );