From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 24 Aug 2002 12:29:27 +0000 (+0000)
Subject: a2p wasn't installed with -Dversiononly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bbd0f0ff9ef0019882e1e8ae6f5b3fd1ba72a704;p=p5sagit%2Fp5-mst-13.2.git

a2p wasn't installed with -Dversiononly

p4raw-id: //depot/perl@17764
---

diff --git a/installperl b/installperl
index 8ccd959..ddcb43b 100755
--- a/installperl
+++ b/installperl
@@ -474,12 +474,14 @@ if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' &&
 
 # Make links to ordinary names if installbin directory isn't current directory.
 if (!$Is_NetWare) {
-	if (!$versiononly && ! samepath($installbin, 'x2p')) {
-		safe_unlink("$installbin/a2p$exe_ext");
-		copy("x2p/a2p$exe_ext", "$installbin/a2p$exe_ext");
-               strip("$installbin/a2p$exe_ext");
-		chmod(0755, "$installbin/a2p$exe_ext");
-	}
+    if (! samepath($installbin, 'x2p')) {
+	my $base = 'a2p';
+	$base .= $ver if $versiononly;
+	safe_unlink("$installbin/$base$exe_ext");
+	copy("x2p/a2p$exe_ext", "$installbin/$base$exe_ext");
+	strip("$installbin/$base$exe_ext");
+	chmod(0755, "$installbin/$base$exe_ext");
+    }
 }
 
 # cppstdin is just a script, but it is architecture-dependent, so