This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test for correct state of . in @INC
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Fri, 11 Nov 2016 15:47:11 +0000 (16:47 +0100)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Fri, 11 Nov 2016 15:48:37 +0000 (16:48 +0100)
t/run/runenv.t

index fbaf169..6f235d2 100644 (file)
@@ -285,8 +285,12 @@ is ($err, '', 'No errors when determining @INC');
 
 my @default_inc = split /\n/, $out;
 
-ok !(grep { $_ eq '.' } @default_inc), '. is not in @INC';
-#is ($default_inc[-1], '.', '. is last in @INC');
+if ($Config{default_inc_excludes_dot}) {
+    ok !(grep { $_ eq '.' } @default_inc), '. is not in @INC';
+}
+else {
+    is ($default_inc[-1], '.', '. is last in @INC');
+}
 
 my $sep = $Config{path_sep};
 foreach (['nothing', ''],