a2p wasn't installed with -Dversiononly

p4raw-id: //depot/perl@17764

1 files changed, 8 insertions, 6 deletions

diff --git a/installperl b/installperl
index 8ccd9590d8..ddcb43bb7d 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