diff options
| -rw-r--r-- | ext/DynaLoader/DynaLoader_pm.PL | 4 | ||||
| -rw-r--r-- | perl.c | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL index fa2ec0e8bc..68cf145e8e 100644 --- a/ext/DynaLoader/DynaLoader_pm.PL +++ b/ext/DynaLoader/DynaLoader_pm.PL @@ -246,8 +246,8 @@ sub bootstrap { 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"; } @@ -2413,7 +2413,8 @@ Perl_moreswitches(pTHX_ char *s) "\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(), |