[svn:Module-Build] r12841 - Module-Build/trunk/t/lib

Author: dagolden
Date: Mon Jun 15 09:23:30 2009
New Revision: 12841

Modified:
   Module-Build/trunk/t/lib/MBTest.pm

Log:
revert tmpdir change that broke tests for PERL_CORE

Modified: Module-Build/trunk/t/lib/MBTest.pm
==============================================================================
--- Module-Build/trunk/t/lib/MBTest.pm	(original)
+++ Module-Build/trunk/t/lib/MBTest.pm	Mon Jun 15 09:23:30 2009
@@ -77,7 +77,7 @@
 
 # We pass everything through to Test::More
 use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO);
-$VERSION = 0.01;
+$VERSION = 0.01_01;
 @ISA = qw(Test::More); # Test::More isa Exporter
 @EXPORT = @Test::More::EXPORT;
 %EXPORT_TAGS = %Test::More::EXPORT_TAGS;
@@ -124,7 +124,7 @@
 # Setup a temp directory 
 sub tmpdir { 
   return File::Temp::tempdir( 'MB-XXXXXXXX', 
-    CLEANUP => 1, DIR => File::Spec->tmpdir 
+    CLEANUP => 1, DIR => $ENV{PERL_CORE} ? Cwd::cwd : File::Spec->tmpdir
   );
 }