This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove workaround for distros needing dot in @INC
authorJames E Keenan <jkeenan@cpan.org>
Thu, 10 Dec 2020 14:41:41 +0000 (14:41 +0000)
committerJames E Keenan <jkeenan@cpan.org>
Wed, 23 Dec 2020 01:31:01 +0000 (20:31 -0500)
In commit 19641fd71a (Apr 07 2017), as part of ceasing to pass '.' to
@INC in tests, we added a workaround to t/TEST for CPAN distributions
which ship with core which were not yet fully adapted to the new
regulation on @INC.

All such CPAN distributions have now been adapted.  Hence, we can remove
the workaround.

t/TEST

diff --git a/t/TEST b/t/TEST
index d011d12..11e672f 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -76,16 +76,6 @@ my %temp_no_core = (
      '../dist/Unicode-Normalize' => 1,
     );
 
-# temporary workaround Apr 2017.  These need '.' in @INC.
-# Ideally this # list will eventually be empty
-
-my %temp_needs_dot  = map { $_ => 1 } qw(
-    ../cpan/Filter-Util-Call
-    ../cpan/libnet
-    ../cpan/Test-Simple
-);
-
-
 # delete env vars that may influence the results
 # but allow override via *_TEST env var if wanted
 # (e.g. PERL5OPT_TEST=-d:NYTProf)
@@ -255,9 +245,6 @@ sub _scan_test {
                if ($temp_no_core{$run_dir}) {
                    $testswitch = $testswitch . ',NC';
                }
-               if($temp_needs_dot{$run_dir}) {
-                   $testswitch = $testswitch . ',DOT';
-               }
            }
        } elsif ($test =~ m!^\.\./lib!) {
            $testswitch = '-I.. -MTestInit=U1'; # -T will remove . from @INC