From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 23:06:22 +0000 (+0000)
Subject: perlivp: more header matching.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30111f4851efef8c1a7ef4e80201a911439242d1;p=p5sagit%2Fp5-mst-13.2.git

perlivp: more header matching.

p4raw-id: //depot/perl@17076
---

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index f89ba0b..bd182a5 100644
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -313,6 +313,7 @@ while (($var, $val) = each %Config) {
 	$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';
+        $h_file = 'rpcsvc/dbm'   if $h_file eq 'rpcsvcdbm';
         # This ought to distinguish syslog from sys/syslog.
         # (NB syslog.ph is heavily used for the DBI pre-requisites).
         $h_file =~ s{^sys(\w.+)}{sys/$1} unless $h_file eq 'syslog';