$#a>>=1 relies on malloc wrap to avoid the segfault, so need to

[perl5.git] / installman

diff --git a/installman b/installman
index 79c6035..c736a9e 100755 (executable)
--- 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' };
        }
     }
 }