diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 21:17:39 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 21:17:39 +0000 |
| commit | 03765510f928d3bbc2f4c80d6607359655bee2bf (patch) | |
| tree | eb90623e353ca1314c5142f6b9cdfbd7407a98a4 /ext/DynaLoader/DynaLoader_pm.PL | |
| parent | 72813c7e572b646ceb799ec93787340c2b49bc55 (diff) | |
| download | perl-03765510f928d3bbc2f4c80d6607359655bee2bf.tar.gz | |
Integrate changes #12580 and #12581 from macperl;
Fix path construction.
(Copyright) Nit.
p4raw-link: @12580 on //depot/maint-5.6/macperl: b2884604d5d1f2307ba4e8645e11489721ebb1bf
p4raw-id: //depot/perl@12593
p4raw-integrated: from //depot/maint-5.6/macperl@12592 'ignore' perl.c
(@12324..) 'merge in' ext/DynaLoader/DynaLoader_pm.PL
(@11007..)
Diffstat (limited to 'ext/DynaLoader/DynaLoader_pm.PL')
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index fa2ec0e8bc..68cf145e8e 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -246,8 +246,8 @@ sub bootstrap { chop($_ = VMS::Filespec::unixpath($_)) if $Is_VMS; my $dir; if ($Is_MacOS) { - chop $_ if /:$/; - $dir = "$_:auto:$modpname"; + $_ .= ":" unless /:$/; + $dir = "${_}auto:$modpname"; } else { $dir = "$_/auto/$modpname"; } |