From f3ae85aed5f33212d4aab2f64b7aa44005555b9f Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Wed, 27 Aug 2014 17:52:41 -0400
Subject: [PATCH] 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.

---
 t/098_pod.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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