mirror of
				https://github.com/torvalds/linux.git
				synced 2025-11-04 10:40:15 +02:00 
			
		
		
		
	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:
		
							parent
							
								
									31130c8ec8
								
							
						
					
					
						commit
						701b3a3c0a
					
				
					 1 changed files with 2 additions and 2 deletions
				
			
		| 
						 | 
					@ -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',
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in a new issue