This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Even better configure.com handling for checkcfgvar.pl
authorCraig A. Berry <craigberry@mac.com>
Fri, 24 Nov 2006 04:45:30 +0000 (04:45 +0000)
committerCraig A. Berry <craigberry@mac.com>
Fri, 24 Nov 2006 04:45:30 +0000 (04:45 +0000)
p4raw-id: //depot/perl@29370

Porting/checkcfgvar.pl

index 955120e..fc0f8c6 100644 (file)
@@ -88,7 +88,7 @@ for my $cfg (@CFG) {
              sub {
                  return if /^\#/ || /^\s*$/;
                  if ($cfg eq 'configure.com') {
-                     s/\s*!.*$//; # remove trailing comments
+                     s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
                      return if ! /^\$\s+WC "(\w+)='(.*)'"$/;
                  }
                  # foo='bar'