From: jdhedden@1979.usna.com <jdhedden@1979.usna.com>
Date: Fri, 28 May 2004 19:23:48 +0000 (+0000)
Subject: [perl #29937] Entries missing from .packlist
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25207203046d8f94b03829079bb348bf2c1b204b;p=p5sagit%2Fp5-mst-13.2.git

[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
---

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' };
 	}
     }
 }
diff --git a/installperl b/installperl
index a7c03da..aaa17ea 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) {