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 (file)
--- 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