[perl.git] branch tux/no-dot-inc, updated. v5.25.6-201-ge7ced07

[Dagfinn Ilmari Mannsåker]

In perl.git, the branch tux/no-dot-inc has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/e7ced07aee4d20f6ce9c29533888933a06fccd0b?hp=3cc3f4e8a00cebda117a8ff92a27a02f3310e719>

- Log -----------------------------------------------------------------
commit e7ced07aee4d20f6ce9c29533888933a06fccd0b
Author: Dagfinn Ilmari Mannsåker <ilm...@ilmari.org>
Date:   Fri Nov 11 16:47:11 2016 +0100

    Test for correct state of . in @INC
-----------------------------------------------------------------------

Summary of changes:
 t/run/runenv.t | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/t/run/runenv.t b/t/run/runenv.t
index fbaf169..6f235d2 100644
--- a/t/run/runenv.t
+++ b/t/run/runenv.t
@@ -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', ''],

--
Perl5 Master Repository