Re: Composing @INC from PERL5LIB

[p5sagit/p5-mst-13.2.git] / Porting / checkcfgvar.pl

diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl
index 84e0f05..fc0f8c6 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*!.*|\s*)$//; # remove trailing comments or whitespace
+                     return if ! /^\$\s+WC "(\w+)='(.*)'"$/;
+                 }
                  # foo='bar'
                  # foo=bar
                  # $foo='bar' # VOS 5.8.x specialty