t/pod/diag.t skips ../ext, so it should skip ../cpan too.
authorNicholas Clark <nick@ccl4.org>
Sat, 26 Sep 2009 05:20:32 +0000 (06:20 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 26 Sep 2009 05:20:32 +0000 (06:20 +0100)
t/pod/diag.t

index cfe572f..eb6f10e 100644 (file)
@@ -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) {