diff options
Diffstat (limited to 't/pod')
| -rw-r--r-- | t/pod/pod2usage2.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/pod/pod2usage2.t b/t/pod/pod2usage2.t index 98a6ba981f..4cd75de14c 100644 --- a/t/pod/pod2usage2.t +++ b/t/pod/pod2usage2.t @@ -223,7 +223,11 @@ EOT # test with pod_where use_ok('Pod::Find', qw(pod_where)); -($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1}, 'Pod::Usage'), +# Exclude current dir when testing in CORE under Cygwin +my @NO_CURDIR = ($^O eq 'cygwin' && $ENV{PERL_CORE}) + ? ('-dirs' => []) + : (); +($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1, @NO_CURDIR}, 'Pod::Usage'), -exitval => 0, -verbose => 0) } ); $text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR is ($exit, 0, "Exit status pod2usage with Pod::Find"); |