diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2007-03-31 13:50:18 -0400 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-04-01 12:57:24 +0000 |
| commit | 2eacba2f038fca0c7ce4713e73ef229faa3f3caa (patch) | |
| tree | 11330c09c2c6b2fdf871ac8c18dd98de8085c06e /Porting/checkcfgvar.pl | |
| parent | e3abe207f764929a97eafa503a3780d5b7636ed2 (diff) | |
| download | perl-2eacba2f038fca0c7ce4713e73ef229faa3f3caa.tar.gz | |
microperl plus missing config vars
Message-ID: <460ED79A.5030809@iki.fi>
p4raw-id: //depot/perl@30823
Diffstat (limited to 'Porting/checkcfgvar.pl')
| -rw-r--r-- | Porting/checkcfgvar.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl index fc0f8c693b..3f14b6f89e 100644 --- a/Porting/checkcfgvar.pl +++ b/Porting/checkcfgvar.pl @@ -50,8 +50,7 @@ sub read_file { sub config_h_SH_reader { my $cfg = shift; return sub { - return if 1../^echo \"Extracting \$CONFIG_H/; - while (/[^\\]\$(\w+)/g) { + while (/[^\\]\$([a-z]\w+)/g) { my $v = $1; next if $v =~ /^(CONFIG_H|CONFIG_SH)$/; $cfg->{$v}++; |