Under versiononly install also the scripts with the version suffix.

(e.g. .../bin/h2xs5.7.1)

p4raw-id: //depot/perl@10195

1 files changed, 17 insertions, 5 deletions

diff --git a/installperl b/installperl
index 6bfbdc9a92..9f49c131cd 100755
--- a/installperl
+++ b/installperl
@@ -414,11 +414,23 @@ sub script_alias {
     }
 }
 
-if (! $versiononly) {
-    # Install scripts.
-
-    mkpath($installscript, $verbose, 0777);
+# Install scripts.
+mkpath($installscript, $verbose, 0777);
+if ($versiononly) {
+    for (@scripts) {
+	(my $base = $_) =~ s#.*/##;
+	$base .= $ver;
+	copy($_,    "$installscript/$base");
+	chmod(0755, "$installscript/$base");
+    }
 
+    for (@tolink) { 
+        my ($from, $to) = map { "$_$ver" } @$_;
+        (my $frbase = $from) =~ s#.*/##;
+        (my $tobase = $to) =~ s#.*/##;
+        script_alias($installscript, $frbase, $tobase, $scr_ext);
+    }
+} else {
     for (@scripts) {
 	(my $base = $_) =~ s#.*/##;
 	copy($_, "$installscript/$base");
@@ -426,7 +438,7 @@ if (! $versiononly) {
     }
 
     for (@tolink) { 
-        my ($from, $to)= @$_;
+        my ($from, $to) = @$_;
         (my $frbase = $from) =~ s#.*/##;
         (my $tobase = $to) =~ s#.*/##;
         script_alias($installscript, $frbase, $tobase, $scr_ext);