diff options
Diffstat (limited to 'source4/script/configure_check_unused.pl')
-rwxr-xr-x | source4/script/configure_check_unused.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/source4/script/configure_check_unused.pl b/source4/script/configure_check_unused.pl index 1bf433aafd..52d8deeb27 100755 --- a/source4/script/configure_check_unused.pl +++ b/source4/script/configure_check_unused.pl @@ -63,13 +63,15 @@ sub cfile_parse($$$) open(FI, $in) or die("Can't open $in"); my $ln = 0; my $line; - foreach($line = <FI>) { + while($line = <FI>) { $ln++; - if ($line =~ /\#([ \t]*)include ["<]([^">]+)/) { + $_ = $line; + if (/\#([ \t]*)include ["<]([^">]+)/) { $headers->{$2} = "$in:$ln"; } - foreach($line =~ /([A-Za-z0-9_]+)/g) { + $_ = $line; + while(/([A-Za-z0-9_]+)/g) { $symbols->{$1} = "$in:$ln"; } } |