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

Author: dagolden
Date: Fri Aug  7 18:22:08 2009
New Revision: 13175

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

Log:
Fixed failing debug.t on VMS (RT#48362)



Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes	(original)
+++ Module-Build/trunk/Changes	Fri Aug  7 18:22:08 2009
@@ -4,6 +4,7 @@
 
  Bug fixes:
  - Fixed failing xs.t if /tmp is mounted noexec (RT#47331) [David Golden]
+ - Fixed failing debug.t on VMS (RT#48362) [Craig Berry]
 
 0.34_02 - Sun Jul 26 22:50:40 EDT 2009
 

Modified: Module-Build/trunk/t/debug.t
==============================================================================
--- Module-Build/trunk/t/debug.t	(original)
+++ Module-Build/trunk/t/debug.t	Fri Aug  7 18:22:08 2009
@@ -24,8 +24,9 @@
   $output = stdout_of sub {
     Module::Build->run_perl_script('Build.PL', [], [])
   };
+  my $build_script = $^O eq 'VMS' ? 'Build.com' : 'Build';
   $output = stdout_of sub {
-    Module::Build->run_perl_script('Build', [], ['--debug'])
+    Module::Build->run_perl_script($build_script, [], ['--debug'])
   };
   like($output, '/Starting ACTION_build.*?Starting ACTION_code.*?Finished ACTION_code.*?Finished ACTION_build/ms',
     "found nested ACTION_* debug statements"