Integrate:

[perl5.git] / Porting / checkcfgvar.pl

diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl
index 0a7b24e..1db53d7 100644 (file)
--- a/Porting/checkcfgvar.pl
+++ b/Porting/checkcfgvar.pl
@@ -6,7 +6,8 @@
 # needed symbols are not lagging after how Configure thinks the world
 # is laid out.
 #
-# VMS is not handled here, due to their own rather elaborate DCL scripting.
+# VMS is probably not handled properly here, due to their own
+# rather elaborate DCL scripting.
 #
 
 use strict;
@@ -30,6 +31,7 @@ my @CFG = (
           "win32/config.vc",
           "win32/config.vc64",
           "wince/config.ce",
+          "configure.com",
          );
 
 sub read_file {
@@ -84,6 +86,8 @@ for my $cfg (@CFG) {
     read_file($cfg,
              sub {
                  return if /^\#/ || /^\s*$/;
+                 return if $cfg eq 'configure.com' &&
+                           ! /^\$\s+WC "(\w+)='(.*)'"$/;
                  # foo='bar'
                  # foo=bar
                  # $foo='bar' # VOS 5.8.x specialty
@@ -93,6 +97,9 @@ for my $cfg (@CFG) {
                  }
                  elsif (/^\$?(\w+)=(.*)$/) {
                      $cfg{$1}++;
+                 }
+                 elsif (/^\$\s+WC "(\w+)='(.*)'"$/) {
+                     $cfg{$1}++;
                  } else {
                      warn "$cfg:$.:$_";
                  }