[svn:Module-Build] r12460 - in Module-Build/trunk: . t/lib

[dagolden]

Author: dagolden
Date: Sun Jan 25 05:47:27 2009
New Revision: 12460

Modified:
   Module-Build/trunk/   (props changed)
   Module-Build/trunk/t/lib/MBTest.pm

Log:
add even more diagnostics to ensure_blib


Modified: Module-Build/trunk/t/lib/MBTest.pm
==============================================================================
--- Module-Build/trunk/t/lib/MBTest.pm  (original)
+++ Module-Build/trunk/t/lib/MBTest.pm  Sun Jan 25 05:47:27 2009
@@ -216,7 +216,10 @@
   local $Test::Builder::Level = $Test::Builder::Level + 1; 
  SKIP: {
     skip "no blib in core", 1 if $ENV{PERL_CORE};
-    like $INC{"$path.pm"}, qr/\bblib\b/, "Make sure $mod was loaded from 
blib/";
+    like $INC{"$path.pm"}, qr/\bblib\b/, "Make sure $mod was loaded from blib/"
+      or diag "PERL5LIB: " . ($ENV{PERL5LIB} || '') . "\n" .
+              "PERL5OPT: " . ($ENV{PERL5OPT} || '') . "\n" .
+              "\...@inc contains:\n  " . join("\n  ", @INC) . "\n"; 
   }
 }