"link =" from utils.lst was being processed oddly.

p4raw-id: //depot/perl@13015

1 files changed, 6 insertions, 3 deletions

diff --git a/installman b/installman
index 0c146bde8c..63b781d2a3 100755
--- a/installman
+++ b/installman
@@ -1,5 +1,5 @@
 #!./perl -w
-BEGIN { @INC = ('lib') }
+BEGIN { @INC = qw(lib) }
 use strict;
 use Config;
 use Getopt::Long;
@@ -85,8 +85,11 @@ while (<UTILS>) {
     $_ = $1 if /#.*pod\s*=\s*(\S+)/;
     my ($where, $what) = m|^(.*?)/(\S+)|;
     pod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
-    if (($where, $what) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
-        pod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
+    if (my ($where2, $what2) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
+	my $old = "$opts{man1dir}/$what.$opts{man1ext}";
+	my $new = "$opts{man1dir}/$what2.$opts{man1ext}";
+	unlink($new);
+        link($old, $new);
     }
 }