Tests are good

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

diff --git a/installman b/installman
index 0c146bd..63b781d 100755 (executable)
--- 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);
     }
 }