PATCH scripts/kernel-doc
Fix a warning whinge from Perl introduced by "scripts: kernel-doc: parse next structs/unions" Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/({ <-- HERE [^\{\}]*})/ at ./scripts/kernel-doc line 1155. Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/({ <-- HERE )/ at ./scripts/kernel-doc line 1179. Signed-off-by: Valdis Kletnieks <valdis.kletnieks@vt.edu> Reviewed-by: Mauro Carvalho Chehab <mchehab+samsung@kernel.org> Signed-off-by: Jonathan Corbet <corbet@lwn.net>
This commit is contained in:
Родитель
31130c8ec8
Коммит
701b3a3c0a
|
@ -1152,7 +1152,7 @@ sub dump_struct($$) {
|
||||||
}
|
}
|
||||||
|
|
||||||
# Ignore other nested elements, like enums
|
# Ignore other nested elements, like enums
|
||||||
$members =~ s/({[^\{\}]*})//g;
|
$members =~ s/(\{[^\{\}]*})//g;
|
||||||
|
|
||||||
create_parameterlist($members, ';', $file, $declaration_name);
|
create_parameterlist($members, ';', $file, $declaration_name);
|
||||||
check_sections($file, $declaration_name, $decl_type, $sectcheck, $struct_actual);
|
check_sections($file, $declaration_name, $decl_type, $sectcheck, $struct_actual);
|
||||||
|
@ -1176,7 +1176,7 @@ sub dump_struct($$) {
|
||||||
$declaration .= "\t" x $level;
|
$declaration .= "\t" x $level;
|
||||||
}
|
}
|
||||||
$declaration .= "\t" . $clause . "\n";
|
$declaration .= "\t" . $clause . "\n";
|
||||||
$level++ if ($clause =~ m/({)/ && !($clause =~m/}/));
|
$level++ if ($clause =~ m/(\{)/ && !($clause =~m/}/));
|
||||||
}
|
}
|
||||||
output_declaration($declaration_name,
|
output_declaration($declaration_name,
|
||||||
'struct',
|
'struct',
|
||||||
|
|
Загрузка…
Ссылка в новой задаче