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
[perl5.git] / 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'