perlivp: sometimes headers and symbols don't quite match.

p4raw-id: //depot/perl@17068

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 39d7f2a..74a72a3 100644 (file)
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -306,9 +306,16 @@ my @ph_files = qw(stdio.ph);
 while (($var, $val) = each %Config) {
     if ($var =~ m/i_(.+)/ && $val eq 'define') {
         $h_file = $1;
+       # Some header and symbol names don't match for hysterical raisins.
+       $h_file = 'arpa/inet'    if $h_file eq 'arpainet';
+       $h_file = 'netinet/in'   if $h_file eq 'niin';
+       $h_file = 'netinet/tcp'  if $h_file eq 'netinettcp';
+       $h_file = 'sys/resource' if $h_file eq 'sysresrc';
+       $h_file = 'sys/select'   if $h_file eq 'sysselct';
+       $h_file = 'sys/security' if $h_file eq 'syssecrt';
         # This ought to distinguish syslog from sys/syslog.
         # (NB syslog.ph is heavily used for the DBI pre-requisites).
-        $h_file =~ s{^sys(.+)}{sys/$1} unless $h_file eq 'syslog';
+        $h_file =~ s{^sys(\w.+)}{sys/$1} unless $h_file eq 'syslog';
         push(@ph_files, "$h_file.ph");
     }
 }