diff options
| author | jdhedden@1979.usna.com <jdhedden@1979.usna.com> | 2004-05-28 19:23:48 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-31 14:20:53 +0000 |
| commit | 25207203046d8f94b03829079bb348bf2c1b204b (patch) | |
| tree | ea40f718fe5a64f066806556a0e018150a4394d1 /installman | |
| parent | 55c8af0d29e97571eaa9bbcffa216a005af1aa1d (diff) | |
| download | perl-25207203046d8f94b03829079bb348bf2c1b204b.tar.gz | |
[perl #29937] Entries missing from .packlist
From: jdhedden@1979.usna.com (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.9-29937-88315.2.18472609678159@perl.org>
p4raw-id: //depot/perl@22878
Diffstat (limited to 'installman')
| -rwxr-xr-x | installman | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/installman b/installman index 79c603593e..c736a9eea4 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' }; } } } |