diff options
| author | Craig A. Berry <craigberry@mac.com> | 2006-11-23 16:11:16 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-11-23 16:11:16 +0000 |
| commit | 0ae3ae8f37e4a24f424ddcc2d4af020a2b7ab088 (patch) | |
| tree | dfe16a4530c6e2dd2edd2263958106abae8b96db /Porting/checkcfgvar.pl | |
| parent | 0f722b558ffdeebb2a4a1827ea54471c04bdd41d (diff) | |
| download | perl-0ae3ae8f37e4a24f424ddcc2d4af020a2b7ab088.tar.gz | |
Tune configure.com checking to ignore trailing comments.
p4raw-id: //depot/perl@29362
Diffstat (limited to 'Porting/checkcfgvar.pl')
| -rw-r--r-- | Porting/checkcfgvar.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl index 84e0f0516f..955120e16d 100644 --- 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*!.*$//; # remove trailing comments + return if ! /^\$\s+WC "(\w+)='(.*)'"$/; + } # foo='bar' # foo=bar # $foo='bar' # VOS 5.8.x specialty |