Teach checkcfgvar.pl that : is also a comment character in shell scripts

p4raw-id: //depot/perl@33048

diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl
index 3531b3c..dd4cbb5 100644 (file)
--- a/Porting/checkcfgvar.pl
+++ b/Porting/checkcfgvar.pl
@@ -87,7 +87,7 @@ for my $cfg (@CFG) {
     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+)='(.*)'"$/;