This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3cc3f4e
)
Test for correct state of . in @INC
author
Dagfinn Ilmari Mannsåker
<ilmari@ilmari.org>
Fri, 11 Nov 2016 15:47:11 +0000
(16:47 +0100)
committer
Dagfinn Ilmari Mannsåker
<ilmari@ilmari.org>
Fri, 11 Nov 2016 15:48:37 +0000
(16:48 +0100)
t/run/runenv.t
patch
|
blob
|
blame
|
history
diff --git
a/t/run/runenv.t
b/t/run/runenv.t
index
fbaf169
..
6f235d2
100644
(file)
--- 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', ''],