Adding the new test would be swell.

[p5sagit/p5-mst-13.2.git] / installperl

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