PERFORCE change 12580 for review

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.