[Module-build-checkins] Module-Build/t destinations.t,1.26,1.27

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv940

Modified Files:
	destinations.t 
Log Message:
Be slightly less evil about poking around with paths


Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- destinations.t	27 Sep 2005 19:03:36 -0000	1.26
+++ destinations.t	27 Sep 2005 19:38:25 -0000	1.27
@@ -153,12 +153,9 @@
     }
 
     # Poke at the innards of MB to change the default install locations.
-    while( my($key, $path) = each %test_config ) {
-        $mb->{properties}{install_sets}{site}{$key} = $path;
-    }
-
-    $mb->{config}{siteprefixexp} = catdir(File::Spec->rootdir, 
-                                         'wierd', 'prefix');
+    local $mb->install_sets->{site} = \%test_config;
+    $mb->config(siteprefixexp => catdir(File::Spec->rootdir, 
+					'wierd', 'prefix'));
 
     my $prefix = catdir('another', 'prefix');
     $mb->prefix($prefix);