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 /installperl | |
| 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 'installperl')
| -rwxr-xr-x | installperl | 8 |
1 files changed, 5 insertions, 3 deletions
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) { |