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

[kwilliams]

Author: kwilliams
Date: Sun Mar 11 09:44:42 2007
New Revision: 9219

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

Log:
Need to quote strings.

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        Sun Mar 11 
09:44:42 2007
@@ -274,7 +274,7 @@
         # Wrap the exception that may be thrown here (should likely be
         # done at a much higher level).
         my $mb = eval { 
-            my $env = ENV_CPANPLUS_IS_EXECUTING;
+            my $env = 'ENV_CPANPLUS_IS_EXECUTING';
             local $ENV{$env} = BUILD_PL->( $dir );
             Module::Build->new_from_context( %buildflags ) 
         };

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        Sun Mar 11 
09:44:42 2007
@@ -177,7 +177,7 @@
 
 ### test ENV setting while running Build.PL code
 {   ### use print() not die() -- we're redirecting STDERR in tests!
-    my $env     = ENV_CPANPLUS_IS_EXECUTING;
+    my $env     = 'ENV_CPANPLUS_IS_EXECUTING';
     my $clone   = $Mod->clone;
     
     ok( $clone,                 'Testing ENV settings $dist->prepare' );