From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 7 Sep 2015 10:53:00 +0000 (+0200)
Subject: Work around EUMM 7.06 creating an empty blib/ dir, breaking prove -lr
X-Git-Tag: v0.082821~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=acc13b63b7cab1169b71137d28d006536ad25ad0;p=dbsrgits%2FDBIx-Class.git

Work around EUMM 7.06 creating an empty blib/ dir, breaking prove -lr
---

diff --git a/t/55namespaces_cleaned.t b/t/55namespaces_cleaned.t
index a8a966d..de47f14 100644
--- a/t/55namespaces_cleaned.t
+++ b/t/55namespaces_cleaned.t
@@ -190,7 +190,7 @@ for my $mod (@modules) {
 sub find_modules {
   my @modules;
 
-  find({
+  find( {
     wanted => sub {
       -f $_ or return;
       s/\.pm$// or return;
@@ -198,7 +198,12 @@ sub find_modules {
       push @modules, join ('::', File::Spec->splitdir($_));
     },
     no_chdir => 1,
-  }, (-e 'blib' ? 'blib' : 'lib') );
+  }, (
+    # find them in both lib and blib, duplicates are fine, since
+    # @INC is preadjusted for us by the harness
+    'lib',
+    ( -e 'blib' ? 'blib' : () ),
+  ));
 
   return sort @modules;
 }