Change 18237: Fix (already in 5.8) for not modifying @INC

Change 18237 by pudge@pudge-mobile on 2002/12/03 03:31:20

	Fix (already in 5.8) for not modifying @INC

Affected files ...

.... //depot/maint-5.6/macperl/ext/DynaLoader/DynaLoader_pm.PL#3 edit

Differences ...

==== //depot/maint-5.6/macperl/ext/DynaLoader/DynaLoader_pm.PL#3 (text) ====
Index: macperl/ext/DynaLoader/DynaLoader_pm.PL
--- macperl/ext/DynaLoader/DynaLoader_pm.PL#2~12580~	Mon Oct 22 12:21:37 2001
+++ macperl/ext/DynaLoader/DynaLoader_pm.PL	Mon Dec  2 19:31: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.