Change 20969: [PATCH: perl@20898] have installperl install perl_setup.com and dbga2p.exe for VMS

[Jarkko Hietaniemi]

Change 20969 by [EMAIL PROTECTED] on 2003/08/31 14:51:19

        Subject: [PATCH: [EMAIL PROTECTED] have installperl install perl_setup.com and 
dbga2p.exe for VMS
        From: [EMAIL PROTECTED]
        Message-ID: <[EMAIL PROTECTED]>
        Date: Sun, 31 Aug 2003 10:11:54 -0400

Affected files ...

... //depot/perl/installperl#113 edit

Differences ...

==== //depot/perl/installperl#113 (xtext) ====
Index: perl/installperl
--- perl/installperl#112~20739~ Sat Aug 16 14:03:07 2003
+++ perl/installperl    Sun Aug 31 07:51:19 2003
@@ -309,6 +309,9 @@
 # First we install the version-numbered executables.
 
 if ($Is_VMS) {
+    safe_unlink("$installbin/perl_setup.com");
+    copy("perl_setup.com", "$installbin/perl_setup.com");
+    chmod(0755, "$installbin/perl_setup.com");
     safe_unlink("$installbin/$dbg$perl$exe_ext");
     copy("$dbg$perl$exe_ext", "$installbin/$dbg$perl$exe_ext");
     chmod(0755, "$installbin/$dbg$perl$exe_ext");
@@ -316,9 +319,12 @@
     copy("$dbg${perl}shr$exe_ext", "$installbin/$dbg${perl}shr$exe_ext");
     chmod(0755, "$installbin/$dbg${perl}shr$exe_ext");
     if ($ndbg) {
-       safe_unlink("$installbin/$ndbg$perl$exe_ext");
-       copy("$ndbg$perl$exe_ext", "$installbin/$ndbg$perl$exe_ext");
-       chmod(0755, "$installbin/$ndbg$perl$exe_ext");
+        safe_unlink("$installbin/$ndbg$perl$exe_ext");
+        copy("$ndbg$perl$exe_ext", "$installbin/$ndbg$perl$exe_ext");
+        chmod(0755, "$installbin/$ndbg$perl$exe_ext");
+       safe_unlink("$installbin/${dbg}a2p$exe_ext");
+       copy("x2p/${dbg}a2p$exe_ext", "$installbin/${dbg}a2p$exe_ext");
+       chmod(0755, "$installbin/${dbg}a2p$exe_ext");
     }
 }
 elsif ($^O eq 'mpeix') {
@@ -497,7 +503,7 @@
 }
 
 # Make links to ordinary names if installbin directory isn't current directory.
-if (!$Is_NetWare) {
+if (!$Is_NetWare && $dbg eq '') {
     if (! samepath($installbin, 'x2p')) {
        my $base = 'a2p';
        $base .= $ver if $versiononly;
End of Patch.