Expand "git st" in Porting/release_managers_guide.pod

[perl5.git] / Porting / checkcfgvar.pl

diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl
old mode 100644 (file)
new mode 100755 (executable)
index e9f3cd0..0ee7ddb
--- a/Porting/checkcfgvar.pl
+++ b/Porting/checkcfgvar.pl
@@ -30,10 +30,13 @@ my @CFG = (
           "vos/config.ga.def",
           "win32/config.bc",
           "win32/config.gc",
+          "win32/config.gc64",
+          "win32/config.gc64nox",
           "win32/config.vc",
           "win32/config.vc64",
           "win32/config.ce",
           "configure.com",
+          "Porting/config.sh",
          );
 
 sub read_file {
@@ -80,13 +83,13 @@ sub check_cfg {
 
 for my $cfg (@CFG) {
     unless (exists $MANIFEST{$cfg}) {
-       print "[skipping not-expected '$cfg']\n";
+       print STDERR "[skipping not-expected '$cfg']\n";
        next;
     }
     my %cfg;
     read_file($cfg,
              sub {
-                 return if /^\#/ || /^\s*$/;
+                 return if /^\#/ || /^\s*$/ || /^\:/;
                  if ($cfg eq 'configure.com') {
                      s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
                      return if ! /^\$\s+WC "(\w+)='(.*)'"$/;