default directory for t/098_pod.t. not sure why it was doing @dir = (); if(ENV var) { @dir = 'some dir that exists' }. this would make a path analysis tool cry.

This commit is contained in:
Scott Walters
2014-08-27 17:52:41 -04:00
parent 7d81cfce87
commit f3ae85aed5

View File

@@ -2,7 +2,7 @@ use Test::More;
eval "use Test::Pod 1.00"; eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
my @dir_from = (); my @dir_from = ('t');
if (!$ENV{HARNESS_ACTIVE}) { if (!$ENV{HARNESS_ACTIVE}) {
# perl Build test or make test run from top-level dir. # perl Build test or make test run from top-level dir.
if ( -d '../t/' ) { if ( -d '../t/' ) {