diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2017-03-12 15:37:57 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2017-03-12 15:37:57 +0000 |
| commit | 458ea8f78a2917d05a5d5ff7877f279f6403eb67 (patch) | |
| tree | 418f21a123c59dc897c226db8bf63ab51cd4d21b /t/win32 | |
| parent | 5173674b1cb46b59301b559929904bc67fa15056 (diff) | |
| download | perl-458ea8f78a2917d05a5d5ff7877f279f6403eb67.tar.gz | |
Make DEFAULT_INC_EXCLUDES_DOT the default on Windows
and provide a makefile option of the same name to control it. It is set to
'define' by default, but can be commented out or set to 'undef' in the
usual manner to switch it off and return to the legacy default behaviour
of including '.' at the end of @INC.
Diffstat (limited to 't/win32')
| -rw-r--r-- | t/win32/runenv.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/win32/runenv.t b/t/win32/runenv.t index 0e2b0ca015..514eda0c20 100644 --- a/t/win32/runenv.t +++ b/t/win32/runenv.t @@ -206,7 +206,12 @@ is ($err, '', 'No errors when determining @INC'); my @default_inc = split /\n/, $out; -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}; my @test_cases = ( |