From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 23 Nov 2006 16:11:16 +0000 (+0000)
Subject: Tune configure.com checking to ignore trailing comments.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ae3ae8f37e4a24f424ddcc2d4af020a2b7ab088;p=p5sagit%2Fp5-mst-13.2.git

Tune configure.com checking to ignore trailing comments.

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

diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl
index 84e0f05..955120e 100644
--- a/Porting/checkcfgvar.pl
+++ b/Porting/checkcfgvar.pl
@@ -87,8 +87,10 @@ for my $cfg (@CFG) {
     read_file($cfg,
 	      sub {
 		  return if /^\#/ || /^\s*$/;
-		  return if $cfg eq 'configure.com' &&
-			    ! /^\$\s+WC "(\w+)='(.*)'"$/;
+		  if ($cfg eq 'configure.com') {
+		      s/\s*!.*$//; # remove trailing comments
+		      return if ! /^\$\s+WC "(\w+)='(.*)'"$/;
+		  }
 		  # foo='bar'
 		  # foo=bar
 		  # $foo='bar' # VOS 5.8.x specialty