Change 12593 by jhi@alpha on 2001/10/22 21:17:39

        Integrate changes #12580 and #12581 from macperl;
        
        Fix path construction.
        
        (Copyright) Nit.

Affected files ...

... //depot/perl/ext/DynaLoader/DynaLoader_pm.PL#21 integrate
... //depot/perl/perl.c#381 integrate

Differences ...

==== //depot/perl/ext/DynaLoader/DynaLoader_pm.PL#21 (text) ====
Index: perl/ext/DynaLoader/DynaLoader_pm.PL
--- perl/ext/DynaLoader/DynaLoader_pm.PL.~1~    Mon Oct 22 15:30:05 2001
+++ perl/ext/DynaLoader/DynaLoader_pm.PL        Mon Oct 22 15:30:05 2001
@@ -246,8 +246,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";
        }

==== //depot/perl/perl.c#381 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~     Mon Oct 22 15:30:05 2001
+++ perl/perl.c Mon Oct 22 15:30:05 2001
@@ -2413,7 +2413,8 @@
                      "\n\nCopyright 1987-2001, Larry Wall\n");
 #ifdef MACOS_TRADITIONAL
        PerlIO_printf(PerlIO_stdout(),
-                     "\nMac OS port Copyright (c) 1991-2001, Matthias Neeracher\n");
+                     "\nMac OS port Copyright 1991-2001, Matthias Neeracher;\n"
+                     "maintained by Chris Nandor\n");
 #endif
 #ifdef MSDOS
        PerlIO_printf(PerlIO_stdout(),
End of Patch.

Reply via email to