Stop perl warning.
This commit is contained in:
parent
987bebaf8c
commit
40e950aed6
@ -432,7 +432,11 @@ sub do_defs
|
|||||||
|
|
||||||
print STDERR "DEBUG: parsing ----------\n" if $debug;
|
print STDERR "DEBUG: parsing ----------\n" if $debug;
|
||||||
while(<IN>) {
|
while(<IN>) {
|
||||||
last if (/\/\* Error codes for the \w+ functions\. \*\//);
|
if (/\/\* Error codes for the \w+ functions\. \*\//)
|
||||||
|
{
|
||||||
|
undef @tag;
|
||||||
|
last;
|
||||||
|
}
|
||||||
if ($line ne '') {
|
if ($line ne '') {
|
||||||
$_ = $line . $_;
|
$_ = $line . $_;
|
||||||
$line = '';
|
$line = '';
|
||||||
|
Loading…
x
Reference in New Issue
Block a user