From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Fri, 3 Mar 2006 18:43:24 +0000 (+0100)
Subject: include configure.com in Porting/checkcfgvar.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0e39d8902c1f3b922488e26e8f416ebb45816a7;p=p5sagit%2Fp5-mst-13.2.git

include configure.com in Porting/checkcfgvar.pl
Message-Id: <200603031843.24250.abe@ztreet.demon.nl>

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

diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl
index 0a7b24e..cf14119 100644
--- 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' &&
+			    ! /^\$ 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 (/^\$ WC "(\w+)='(.*)'"$/) {
+		      $cfg{$1}++;
 		  } else {
 		      warn "$cfg:$.:$_";
 		  }