diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-03-06 21:58:34 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-03-06 21:58:34 -0600 |
| commit | d80510fd723a1baf6d4ae2b2b501295549789ccb (patch) | |
| tree | 5f71633f5744b06c001fe521a5b309d0327598cf /lib | |
| parent | 35182409a84e9ffbc214100d50c327cf95b06d7d (diff) | |
| download | perl-d80510fd723a1baf6d4ae2b2b501295549789ccb.tar.gz | |
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.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Config.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Config.t b/lib/Config.t index 76ce6b6393..ee2eaea99a 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") |