diff options
| author | David Mitchell <davem@iabyn.com> | 2009-07-18 01:10:20 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-07-18 01:10:20 +0100 |
| commit | c456aab3e6e7b564c1fc0b18560485446780fa95 (patch) | |
| tree | eb22abb707b92b2dcfeb7a5957c6d1b7562b74e9 /t/pod | |
| parent | 69a43907343338be83348549c3ca427544e91995 (diff) | |
| download | perl-c456aab3e6e7b564c1fc0b18560485446780fa95.tar.gz | |
fix pod2usage2 test for all case-insensitive systems
This test, when run from core in t/, finds pod/usage.pod before
../lib/Pod/Usage.pm. Remove '.' from the search path for all core
platforms, not just cygwin.
Diffstat (limited to 't/pod')
| -rw-r--r-- | t/pod/pod2usage2.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/pod/pod2usage2.t b/t/pod/pod2usage2.t index d0097eea81..def8bea7e6 100644 --- a/t/pod/pod2usage2.t +++ b/t/pod/pod2usage2.t @@ -223,8 +223,9 @@ EOT # test with pod_where use_ok('Pod::Find', qw(pod_where)); -# Exclude current dir when testing in CORE under Cygwin -my @NO_CURDIR = ($^O eq 'cygwin' && $ENV{PERL_CORE}) ++# Exclude current dir when testing in CORE; otherwise on case-insensitive ++# systems, when in t/ we find pod/usage.pod rather than # ../lib/Pod/Usage.pm ++my @NO_CURDIR = ($ENV{PERL_CORE}) ? ('-dirs' => []) : (); |