diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 21:42:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 21:42:12 +0000 |
| commit | 5809a13ea6c6ec19e8736d07f5b0f74c5dceb821 (patch) | |
| tree | e7f719e75b91b93f6b813831b273f6d3dca6c15e /ext/DynaLoader | |
| parent | 4794e77e5e584c1759c1f5e3d4943a2169c1a3c0 (diff) | |
| download | perl-5809a13ea6c6ec19e8736d07f5b0f74c5dceb821.tar.gz | |
Integrate macperl patches #16926 and #16938;
Big MacPerl Testing Patch No. 2
Big MacPerl Testing Patch No. 3
p4raw-id: //depot/perl@16942
p4raw-integrated: from //depot/macperl@16937 'copy in'
lib/Devel/SelfStubber.pm lib/Devel/SelfStubber.t
lib/File/DosGlob.t lib/File/Path.t lib/File/Spec/t/Spec.t
lib/File/Temp.pm lib/FindBin.t lib/Tie/File/t/09_gen_rs.t
lib/lib.t t/comp/use.t utils/dprofpp.PL utils/splain.PL
(@16123..) t/lib/MakeMaker/Test/Utils.pm (@16230..)
lib/diagnostics.t (@16646..) lib/ExtUtils/t/00setup_dummy.t
lib/ExtUtils/t/Command.t (@16730..) lib/lib_pm.PL (@16926..)
lib/ExtUtils/MM_MacOS.pm lib/Test/Harness/Straps.pm
lib/Test/Harness/t/callback.t
lib/Test/Harness/t/strap-analyze.t
lib/Test/Harness/t/test-harness.t (@16929..)
p4raw-integrated: from //depot/macperl@16926 'merge in' lib/English.t
(@16123..) ext/DynaLoader/DynaLoader_pm.PL (@16868..)
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index 7e1b8cb6a8..8c44b40907 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -77,6 +77,9 @@ $Is_VMS = $^O eq 'VMS'; $do_expand = $Is_VMS; $Is_MacOS = $^O eq 'MacOS'; +my $Mac_FS; +$Mac_FS = eval { require Mac::FileSpec::Unixish } if $Is_MacOS; + @dl_require_symbols = (); # names of symbols we need @dl_resolve_using = (); # names of files to link with @dl_library_path = (); # path to look for files @@ -251,6 +254,9 @@ sub bootstrap { my $dir; if ($Is_MacOS) { my $path = $_; + if ($Mac_FS) { + $path = Mac::FileSpec::Unixish::nativize($path); + } $path .= ":" unless /:$/; $dir = "${path}auto:$modpname"; } else { |