X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installman;h=c736a9eea48c84dfbec3a22c05156a8b68ed7a01;hb=ffd4ff43bd2a65a31e5f3808320b98b9851ba91e;hp=79c603593e88cfcf0f9962f3de5307c782ce9d0e;hpb=63fae90782a9851db725590019f02999dc17a13e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installman b/installman
index 79c6035..c736a9e 100755
--- a/installman
+++ b/installman
@@ -91,6 +91,11 @@ while (<UTILS>) {
 	    my $new = "$opts{man1dir}/$what2.$opts{man1ext}";
 	    unlink($new);
 	    link($old, $new);
+	    my $xold = $old;
+	    $xold =~ s/^\Q$opts{'destdir'}\E// if $opts{'destdir'};
+	    my $xnew = $new;
+	    $xnew =~ s/^\Q$opts{'destdir'}\E// if $opts{'destdir'};
+	    $packlist->{$xnew} = { from => $xold, type => 'link' };
 	}
     }
 }