This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix pod2usage2 test for all case-insensitive systems
authorDavid Mitchell <davem@iabyn.com>
Sat, 18 Jul 2009 00:10:20 +0000 (01:10 +0100)
committerDavid Mitchell <davem@iabyn.com>
Sat, 18 Jul 2009 00:10:20 +0000 (01:10 +0100)
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.

t/pod/pod2usage2.t

index d0097ee..def8bea 100644 (file)
@@ -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' => [])
                     : ();