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);
|
