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 | |
| 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
| -rwxr-xr-x | installman | 5 | ||||
| -rwxr-xr-x | installperl | 8 |
2 files changed, 10 insertions, 3 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' }; } } } diff --git a/installperl b/installperl index a7c03da5a4..aaa17ea31f 100755 --- a/installperl +++ b/installperl @@ -252,6 +252,9 @@ else { " some tests failed! (Installing anyway.)\n"; } #if (!$Is_NetWare) +# This will be used to store the packlist +my $packlist = ExtUtils::Packlist->new("$installarchlib/.packlist"); + if (($Is_W32 and ! $Is_NetWare) or $Is_Cygwin) { my $perldll; @@ -266,6 +269,7 @@ if (($Is_W32 and ! $Is_NetWare) or $Is_Cygwin) { safe_unlink("$installbin/$_"); copy("$_", "$installbin/$_"); chmod(0755, "$installbin/$_"); + $packlist->{"$installbin/$_"} = { type => 'file' }; }; open (LD2, ">$installbin/ld2"); print LD2 <<SHELL; @@ -302,11 +306,9 @@ SHELL safe_unlink("$installbin/$perldll"); copy("$perldll", "$installbin/$perldll"); chmod(0755, "$installbin/$perldll"); + $packlist->{"$installbin/$perldll"} = { type => 'file' }; } # if (($Is_W32 and ! $Is_NetWare) or $Is_Cygwin) -# This will be used to store the packlist -my $packlist = ExtUtils::Packlist->new("$installarchlib/.packlist"); - # First we install the version-numbered executables. if ($Is_VMS) { |