This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #29937] Entries missing from .packlist
authorjdhedden@1979.usna.com <jdhedden@1979.usna.com>
Fri, 28 May 2004 19:23:48 +0000 (19:23 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 31 May 2004 14:20:53 +0000 (14:20 +0000)
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

installman
installperl

index 79c6035..c736a9e 100755 (executable)
@@ -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' };
        }
     }
 }
index a7c03da..aaa17ea 100755 (executable)
@@ -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) {