This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlivp: more header matching.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 7 Jun 2002 23:06:22 +0000 (23:06 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 7 Jun 2002 23:06:22 +0000 (23:06 +0000)
p4raw-id: //depot/perl@17076

utils/perlivp.PL

index f89ba0b..bd182a5 100644 (file)
@@ -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';