From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 19:22:23 +0000 (+0000)
Subject: perlivp: sometimes headers and symbols don't quite match.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07853d7a3689bd5640448962dc55ce2035962584;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");
     }
 }