+# Make links to ordinary names if installbin directory isn't current directory.
+
+if (! $versiononly && ! samepath($installbin, '.')) {
+ safe_unlink("$installbin/perl$exe_ext", "$installbin/suidperl$exe_ext");
+ link("$installbin/perl$ver$exe_ext", "$installbin/perl$exe_ext");
+ link("$installbin/sperl$ver$exe_ext", "$installbin/suidperl$exe_ext")
+ if $d_dosuid;
+}
+
+if (!$versiononly && ! samepath($installbin, 'x2p')) {
+ safe_unlink("$installbin/a2p$exe_ext");
+ copy("x2p/a2p$exe_ext", "$installbin/a2p$exe_ext");
+ chmod(0755, "$installbin/a2p$exe_ext");
+}
+
+# cppstdin is just a script, but it is architecture-dependent, so
+# it can't safely be shared. Place it in $installbin.
+# Note that Configure doesn't build cppstin if it isn't needed, so
+# we skip this if cppstdin doesn't exist.
+if (! $versiononly && (-f 'cppstdin') && (! samepath($installbin, '.'))) {
+ safe_unlink("$installbin/cppstdin");
+ copy("cppstdin", "$installbin/cppstdin");
+ chmod(0755, "$installbin/cppstdin");
+}
+
+# Install scripts.
+
+mkpath($installscript, 1, 0777);
+
+if (! $versiononly) {
+ for (@scripts) {
+ (my $base = $_) =~ s#.*/##;
+ copy($_, "$installscript/$base");
+ chmod(0755, "$installscript/$base");
+ }
+}
+
+# pstruct should be a link to c2ph
+
+if (! $versiononly) {
+ safe_unlink("$installscript/pstruct");
+ link("$installscript/c2ph","$installscript/pstruct");
+}
+
+# Install pod pages. Where? I guess in $installprivlib/pod.
+
+if (! $versiononly || !($installprivlib =~ m/\Q$]/)) {
+ mkpath("${installprivlib}/pod", 1, 0777);
+
+ # If Perl 5.003's perldiag.pod is there, rename it.
+ if (open POD, "${installprivlib}/pod/perldiag.pod") {
+ read POD, $_, 4000;
+ close POD;
+ # Some of Perl 5.003's diagnostic messages ended with periods.
+ if (/^=.*\.$/m) {
+ my ($from, $to) = ("${installprivlib}/pod/perldiag.pod",
+ "${installprivlib}/pod/perldiag-5.003.pod");
+ print STDERR " rename $from $to";
+ rename($from, $to)
+ or warn "Couldn't rename $from to $to: $!\n"
+ unless $nonono;
+ }
+ }
+
+ foreach $file (@pods) {
+ # $file is a name like pod/perl.pod
+ copy_if_diff($file, "${installprivlib}/${file}");
+ }
+
+ # Link perldiag.pod into archlib
+ my ($from, $to) = ("${installprivlib}/pod/perldiag.pod",
+ "${installarchlib}/pod/perldiag.pod");
+ if (compare($from, $to) || $nonono) {
+ mkpath("${installarchlib}/pod", 1, 0777);
+ unlink($to);
+ link($from, $to);
+ }
+}
+