Commit 701b3a3c authored Jul 17, 2018 by valdis.kletnieks@vt.edu Committed by Jonathan Corbet Jul 23, 2018

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>

parent 31130c8e

scripts/kernel-doc

+2 −2

Original line number	Diff line number	Diff line
		@@ -1152,7 +1152,7 @@ sub dump_struct($$) {
		}

		# Ignore other nested elements, like enums
		$members =~ s/({[^\{\}]*})//g;
		$members =~ s/(\{[^\{\}]*})//g;

		create_parameterlist($members, ';', $file, $declaration_name);
		check_sections($file, $declaration_name, $decl_type, $sectcheck, $struct_actual);
		@@ -1176,7 +1176,7 @@ sub dump_struct($$) {
		$declaration .= "\t" x $level;
		}
		$declaration .= "\t" . $clause . "\n";
		$level++ if ($clause =~ m/({)/ && !($clause =~m/}/));
		$level++ if ($clause =~ m/(\{)/ && !($clause =~m/}/));
		}
		output_declaration($declaration_name,
		'struct',

Admin message