mirror of
https://github.com/cp2k/cp2k.git
synced 2026-07-28 22:25:32 -04:00
fixcomments.pl: Simply remove empty unmatched procedure args
svn-origin-rev: 14379
This commit is contained in:
parent
4f06dac428
commit
107d8425b1
1 changed files with 3 additions and 1 deletions
|
|
@ -381,7 +381,9 @@ while (<$INPUT>) # While there are still lines to read in our INPUT file
|
|||
foreach $paramtype ( sort keys %params ) # We need to sort the keys otherwise the output order of the hash is given in internal order
|
||||
{
|
||||
if (($matched{$paramtype} eq 0) && ($ampersand eq 0)) {
|
||||
if ( $params{$paramtype} !~ m/UNMATCHED_PROCEDURE_ARGUMENT/) { # Must protect against updating an existing comment
|
||||
if ($params{$paramtype} eq '!> \param '.$paramtype." ...\n") {
|
||||
# there was no comment, just drop parameter
|
||||
} elsif ($params{$paramtype} !~ m/UNMATCHED_PROCEDURE_ARGUMENT/) { # Must protect against updating an existing comment
|
||||
chomp($params{$paramtype}); # Get rid of \n so UNMATCHED* text can be appended on.
|
||||
print $OUTPUT $params{$paramtype} . " UNMATCHED_PROCEDURE_ARGUMENT: please check \n";
|
||||
} else {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue