diff options
| -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) { |