Fixed line counting error.

This commit is contained in:
Nick Hibma 1999-03-27 22:41:40 +00:00
parent 9b030d1073
commit 2bee57be2f

View File

@ -262,7 +262,9 @@ foreach $src ( @filenames ) {
$methods{$name} = 'VIS';
while ( $line !~ m/}/ and $line .= <SRC> ) { }
while ( $line !~ m/}/ and $line .= <SRC> ) {
$lineno++
}
if ( $line !~ s/};?(.*)// ) { # remove first '}' and trailing garbage
# The '}' was not there (the rest is optional), so complain