Author: dagolden
Date: Tue Apr 28 03:46:55 2009
New Revision: 12719
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/t/ext.t
Log:
[rt#45461] ext.t needs fix to support VMS
Test 186 of ext.t is checking to see if the temporary directory was
added to @INC properly.
VMS stores this path in Unix format so the test needs to convert the
reference directory to Unix format with out the trailing slash for the
compare to succeed.
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Tue Apr 28 03:46:55 2009
@@ -2,6 +2,9 @@
0.32_02 -
+ Bug-fixes:
+ - Fixed ext.t on VMS [patch from John Malmberg] (RT #45461)
+
0.32_01 - Tue Apr 14 17:14:22 PDT 2009
Bug-fixes:
Modified: Module-Build/trunk/t/ext.t
==============================================================================
--- Module-Build/trunk/t/ext.t (original)
+++ Module-Build/trunk/t/ext.t Tue Apr 28 03:46:55 2009
@@ -137,6 +137,12 @@
{
# Make sure run_perl_script() propagates @INC
my $dir = MBTest->tmpdir;
+ if ($^O eq 'VMS') {
+ # VMS can store INC paths in Unix format with out the trailing
+ # directory delimiter.
+ $dir = VMS::Filespec::unixify($dir);
+ $dir =~ s#/$##;
+ }
local @INC = ($dir, @INC);
my $output = stdout_of( sub { Module::Build->run_perl_script('-le', [],
['print for @INC']) } );
like $output, qr{^\Q$dir\E}m;
