diff options
| author | Abe Timmerman <abe@ztreet.demon.nl> | 2006-03-03 19:43:24 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-03-03 17:49:01 +0000 |
| commit | a0e39d8902c1f3b922488e26e8f416ebb45816a7 (patch) | |
| tree | e59fecaa3f675097b4e56a241c7feea9e372112d /Porting | |
| parent | 635aebb78abd81c28ceb76ef8d65d262f3647e23 (diff) | |
| download | perl-a0e39d8902c1f3b922488e26e8f416ebb45816a7.tar.gz | |
include configure.com in Porting/checkcfgvar.pl
Message-Id: <200603031843.24250.abe@ztreet.demon.nl>
p4raw-id: //depot/perl@27371
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/checkcfgvar.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl index 0a7b24e743..cf14119c0d 100644 --- a/Porting/checkcfgvar.pl +++ b/Porting/checkcfgvar.pl @@ -6,7 +6,8 @@ # needed symbols are not lagging after how Configure thinks the world # is laid out. # -# VMS is not handled here, due to their own rather elaborate DCL scripting. +# VMS is probably not handled properly here, due to their own +# rather elaborate DCL scripting. # use strict; @@ -30,6 +31,7 @@ my @CFG = ( "win32/config.vc", "win32/config.vc64", "wince/config.ce", + "configure.com", ); sub read_file { @@ -84,6 +86,8 @@ for my $cfg (@CFG) { read_file($cfg, sub { return if /^\#/ || /^\s*$/; + return if $cfg eq 'configure.com' && + ! /^\$ WC "(\w+)='(.*)'"$/; # foo='bar' # foo=bar # $foo='bar' # VOS 5.8.x specialty @@ -93,6 +97,9 @@ for my $cfg (@CFG) { } elsif (/^\$?(\w+)=(.*)$/) { $cfg{$1}++; + } + elsif (/^\$ WC "(\w+)='(.*)'"$/) { + $cfg{$1}++; } else { warn "$cfg:$.:$_"; } |