From c8f392da2bce19a4e929f15aae950a6983de61f2 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 24 May 2001 13:25:04 +0000
Subject: [PATCH] Under versiononly install also the scripts with the version
 suffix. (e.g. .../bin/h2xs5.7.1)

p4raw-id: //depot/perl@10195
---
 installperl | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/installperl b/installperl
index 6bfbdc9..9f49c13 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);
-- 
2.7.4