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

Author: dagolden
Date: Thu Aug 27 19:26:38 2009
New Revision: 13229

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/destinations.t

Log:
Fix the t/destinations.t local workaround

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes	(original)
+++ Module-Build/trunk/Changes	Thu Aug 27 19:26:38 2009
@@ -6,6 +6,9 @@
  - Generates MYMETA.yml during Build.PL (new standard protocol for 
    communicating configuration results between toolchain components)
  
+ Bug fixes:
+ - Fix the t/destinations.t fix. [David Golden, with thanks to Eric Wilhelm]
+
 0.35 - Thu Aug 27 09:12:02 EDT 2009
 
  Bug fixes:

Modified: Module-Build/trunk/t/destinations.t
==============================================================================
--- Module-Build/trunk/t/destinations.t	(original)
+++ Module-Build/trunk/t/destinations.t	Thu Aug 27 19:26:38 2009
@@ -248,7 +248,8 @@
     }
 
     # Poke at the innards of MB to change the default install locations.
-    my $old =  $mb->install_sets->{site} = \%test_config;
+    my $old =  $mb->install_sets->{site};
+    $mb->install_sets->{site} = \%test_config;
     $mb->config(siteprefixexp => catdir(File::Spec->rootdir, 
 					'wierd', 'prefix'));