Change 18244 by gsar@moonru on 2002/12/04 08:20:20
integrate macperl-5.6 branch change (DynaLoader fix)
Affected files ...
.... //depot/maint-5.6/perl/ext/DynaLoader/DynaLoader_pm.PL#7 integrate
Differences ...
==== //depot/maint-5.6/perl/ext/DynaLoader/DynaLoader_pm.PL#7 (text) ====
Index: perl/ext/DynaLoader/DynaLoader_pm.PL
--- perl/ext/DynaLoader/DynaLoader_pm.PL#6~12597~ Mon Oct 22 15:02:50 2001
+++ perl/ext/DynaLoader/DynaLoader_pm.PL Wed Dec 4 00:20:20 2002
@@ -244,8 +244,9 @@
chop($_ = VMS::Filespec::unixpath($_)) if $Is_VMS;
my $dir;
if ($Is_MacOS) {
- $_ .= ":" unless /:$/;
- $dir = "${_}auto:$modpname";
+ my $path = $_;
+ $path .= ":" unless /:$/;
+ $dir = "${path}auto:$modpname";
} else {
$dir = "$_/auto/$modpname";
}
End of Patch.
