[svn:CPANPLUS-Dist-Build] r12799 - in CPANPLUS-Dist-Build/trunk: lib/CPANPLUS/Dist lib/CPANPLUS/Dist/Build t

Author: BINGOS
Date: Mon Jun  1 14:56:29 2009
New Revision: 12799

Modified:
   CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm
   CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm
   CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t

Log:
Fixed the setting of PERL5_CPANPLUS_IS_EXECUTING env var in prepare. Spotted by Matt Trout

Modified: CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm
==============================================================================
--- CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm	(original)
+++ CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm	Mon Jun  1 14:56:29 2009
@@ -30,7 +30,7 @@
 
 local $Params::Check::VERBOSE = 1;
 
-$VERSION = '0.30';
+$VERSION = '0.32';
 
 =pod
 
@@ -308,7 +308,7 @@
         # done at a much higher level).
         my $prep_output;
 
-        my $env = 'ENV_CPANPLUS_IS_EXECUTING';
+        my $env = ENV_CPANPLUS_IS_EXECUTING;
         local $ENV{$env} = BUILD_PL->( $dir );
 
         unless ( scalar run(    command => [$perl, BUILD_PL->($dir), @buildflags],

Modified: CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm
==============================================================================
--- CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm	(original)
+++ CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm	Mon Jun  1 14:56:29 2009
@@ -9,7 +9,7 @@
     require Exporter;
     use vars    qw[$VERSION @ISA @EXPORT];
   
-    $VERSION    = '0.30';
+    $VERSION    = '0.32';
     @ISA        = qw[Exporter];
     @EXPORT     = qw[ BUILD_DIR BUILD ];
 }

Modified: CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t
==============================================================================
--- CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t	(original)
+++ CPANPLUS-Dist-Build/trunk/t/02_CPANPLUS-Dist-Build.t	Mon Jun  1 14:56:29 2009
@@ -198,7 +198,7 @@
 ### test ENV setting while running Build.PL code
 SKIP: {   ### use print() not die() -- we're redirecting STDERR in tests!
     skip("Known issues due to capturing with this test and MSWin32") if ON_WIN32;
-    my $env     = 'ENV_CPANPLUS_IS_EXECUTING';
+    my $env     = ENV_CPANPLUS_IS_EXECUTING;
     my $clone   = $Mod->clone;
     
     ok( $clone,                 'Testing ENV settings $dist->prepare' );