Author: dagolden
Date: Wed Dec 9 08:56:34 2009
New Revision: 13659
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/t/bundle_inc.t
Log:
bundle_inc.t temp install must use uninst=0
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Wed Dec 9 08:56:34 2009
@@ -6,6 +6,9 @@
- Skip ppm.t if Pod::HTML is not available
+ - Ensure bundle_inc.t doesn't accidentally uninstall the installed M::B
+ during testing if the user had 'uninst=1' set during Build.PL
+
0.35_13 - Sat Dec 5 11:26:36 EST 2009
Bug fixes:
Modified: Module-Build/trunk/t/bundle_inc.t
==============================================================================
--- Module-Build/trunk/t/bundle_inc.t (original)
+++ Module-Build/trunk/t/bundle_inc.t Wed Dec 9 08:56:34 2009
@@ -43,7 +43,12 @@
$lib_path, $arch_path, ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : () )
);
-stdout_of( sub { $current_mb->dispatch('install', install_base =>
$temp_install) } );
+# must uninst=0 so we don't try to remove an installed M::B!
+stdout_of( sub { $current_mb->dispatch(
+ 'install', install_base => $temp_install, uninst => 0
+ )
+ }
+);
# create dist object in a temp directory
# enter the directory and generate the skeleton files
