patch-2.1.85 linux/scripts/checkconfig.pl
Next file: linux/CREDITS
Previous file: linux/net/ipv4/ipconfig.c
Back to the patch index
Back to the overall index
- Lines: 33
- Date:
Mon Feb 2 13:43:59 1998
- Orig file:
v2.1.84/linux/scripts/checkconfig.pl
- Orig date:
Mon Jan 5 01:41:01 1998
diff -u --recursive --new-file v2.1.84/linux/scripts/checkconfig.pl linux/scripts/checkconfig.pl
@@ -1,9 +1,12 @@
#! /usr/bin/perl
#
# checkconfig: find uses of CONFIG_* names without matching definitions.
+# Copyright abandoned, 1998, Michael Elizabeth Chastain <mailto:mec@shout.net>.
use integer;
+$| = 1;
+
foreach $file (@ARGV)
{
# Open this file.
@@ -24,15 +27,15 @@
# Pick up definitions.
if ( m/^#/o )
{
- $iLinuxConfig = $. if m/^#\s*include\s+<linux\/config\.h>/o;
- $configList{uc $1} = 1 if m/^#\s*include\s+<config\/(\S*)\.h>/o;
+ $iLinuxConfig = $. if m/^#\s*include\s*<linux\/config\.h>/o;
+ $configList{uc $1} = 1 if m/^#\s*include\s*<config\/(\S*)\.h>/o;
$configList{$1} = 1 if m/^#\s*define\s+CONFIG_(\w*)/o;
$configList{$1} = 1 if m/^#\s*undef\s+CONFIG_(\w*)/o;
}
# Look for usages.
next unless m/CONFIG_/o;
- WORD: while ( m/\bCONFIG_(\w*)/og )
+ WORD: while ( m/\bCONFIG_(\w+)/og )
{
$fUseConfig = 1;
last LINE if $iLinuxConfig;
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen, slshen@lbl.gov