Fixed line counting error.
This commit is contained in:
parent
9b030d1073
commit
2bee57be2f
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user