Change 12580 by pudge@pudge-mobile on 2001/10/22 19:21:37
Fix path construction.
Affected files ...
... //depot/maint-5.6/macperl/ext/DynaLoader/DynaLoader_pm.PL#2 edit
Differences ...
==== //depot/maint-5.6/macperl/ext/DynaLoader/DynaLoader_pm.PL#2 (text) ====
Index: perl/ext/DynaLoader/DynaLoader_pm.PL
--- perl/ext/DynaLoader/DynaLoader_pm.PL.~1~ Mon Oct 22 13:30:05 2001
+++ perl/ext/DynaLoader/DynaLoader_pm.PL Mon Oct 22 13:30:05 2001
@@ -244,8 +244,8 @@
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";
}
End of Patch.
