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

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