In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d80510fd723a1baf6d4ae2b2b501295549789ccb?hp=35182409a84e9ffbc214100d50c327cf95b06d7d>
- Log ----------------------------------------------------------------- commit d80510fd723a1baf6d4ae2b2b501295549789ccb Author: Craig A. Berry <[email protected]> Date: Sun Mar 6 21:58:34 2011 -0600 Libraries in @INC may be in Unix or VMS format on VMS. We now (after 816005240f1a3b9989c940e630e829048597537c) will store them in @INC in Unix format, but either format is legal. We can't change the values in %Config to be Unix format, though, because MakeMaker and other utilities may use those to construct paths for native software that needs them in native format. ----------------------------------------------------------------------- Summary of changes: lib/Config.t | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/lib/Config.t b/lib/Config.t index 76ce6b6..ee2eaea 100644 --- a/lib/Config.t +++ b/lib/Config.t @@ -264,6 +264,11 @@ foreach my $lib (qw(applibexp archlibexp privlibexp sitearchexp sitelibexp skip "lib $lib not in \@INC on Win32" if $^O eq 'MSWin32'; skip "lib $lib not defined" unless defined $dir; skip "lib $lib not set" unless length $dir; + # May be in @INC in either Unix or VMS format on VMS. + if ($^O eq 'VMS' && !exists($orig_inc{$dir})) { + $dir = VMS::Filespec::unixify($dir); + $dir =~ s|/$||; + } # So we expect to find it in @INC ok (exists $orig_inc{$dir}, "Expect $lib '$dir' to be in \@INC") -- Perl5 Master Repository
