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

[dagolden]

Author: dagolden
Date: Tue Aug 25 13:30:50 2009
New Revision: 13222

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

Log:
Fix t/destinations.t segfault on 5.6.2

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Tue Aug 25 13:30:50 2009
@@ -2,6 +2,9 @@
 
 0.34_07 - 
 
+ Bug fixes:
+ - Fix t/destinations.t segfault on 5.6.2
+
 0.34_06 - Sat Aug 22 21:58:26 EDT 2009
 
  Bug fixes:

Modified: Module-Build/trunk/t/destinations.t
==============================================================================
--- Module-Build/trunk/t/destinations.t (original)
+++ Module-Build/trunk/t/destinations.t Tue Aug 25 13:30:50 2009
@@ -248,13 +248,14 @@
     }
 
     # Poke at the innards of MB to change the default install locations.
-    local $mb->install_sets->{site} = \%test_config;
+    my $old =  $mb->install_sets->{site} = \%test_config;
     $mb->config(siteprefixexp => catdir(File::Spec->rootdir, 
                                        'wierd', 'prefix'));
 
     my $prefix = catdir('another', 'prefix');
     $mb->prefix($prefix);
     test_prefix($prefix, \%test_config);
+    $mb->install_sets->{site} = $old;
 }