From: David Mitchell <davem@iabyn.com>
Date: Sat, 18 Jul 2009 00:10:20 +0000 (+0100)
Subject: fix pod2usage2 test for all case-insensitive systems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c456aab3e6e7b564c1fc0b18560485446780fa95;p=p5sagit%2Fp5-mst-13.2.git

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.
---

diff --git a/t/pod/pod2usage2.t b/t/pod/pod2usage2.t
index d0097ee..def8bea 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' => [])
                     : ();