From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 26 Sep 2009 05:20:32 +0000 (+0100)
Subject: t/pod/diag.t skips ../ext, so it should skip ../cpan too.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=663bfafc78cf049036e7391ba11385234dcbe9ed;p=p5sagit%2Fp5-mst-13.2.git

t/pod/diag.t skips ../ext, so it should skip ../cpan too.
---

diff --git a/t/pod/diag.t b/t/pod/diag.t
index cfe572f..eb6f10e 100644
--- a/t/pod/diag.t
+++ b/t/pod/diag.t
@@ -31,7 +31,7 @@ while (<$diagfh>) {
 my @todo = ('..');
 while (@todo) {
   my $todo = shift @todo;
-  next if $todo ~~ ['../t', '../lib', '../ext'];
+  next if $todo ~~ ['../t', '../lib', '../ext', '../cpan'];
   # opmini.c is just a copy of op.c, so there's no need to check again.
   next if $todo eq '../opmini.c';
   if (-d $todo) {