From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 7 Sep 2015 15:40:49 +0000 (+0200)
Subject: Silence warning introduced in sloppy workaround e9505615
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35f4cebe5c44fd283aff74fd3dea8c9aa1d6072c;p=dbsrgits%2FDBIx-Class.git

Silence warning introduced in sloppy workaround e9505615
---

diff --git a/xt/extra/internals/namespaces_cleaned.t b/xt/extra/internals/namespaces_cleaned.t
index 237a90b..92185ae 100644
--- a/xt/extra/internals/namespaces_cleaned.t
+++ b/xt/extra/internals/namespaces_cleaned.t
@@ -185,7 +185,7 @@ for my $mod (@modules) {
 sub find_modules {
   my @modules;
 
-  find({
+  find( {
     wanted => sub {
       -f $_ or return;
       s/\.pm$// or return;
@@ -193,7 +193,12 @@ sub find_modules {
       push @modules, join ('::', File::Spec->splitdir($_));
     },
     no_chdir => 1,
-  }, qw( lib blib ) );  # find them in both lib and blib, @INC is preadjusted for us by the harness
+  }, (
+    # 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;
 }