From c456aab3e6e7b564c1fc0b18560485446780fa95 Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Sat, 18 Jul 2009 01:10:20 +0100
Subject: 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.
---
 t/pod/pod2usage2.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 't/pod')

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' => [])
                     : ();
 
-- 
cgit v1.2.1