Lines Matching refs:comment
1136 my $comment = "";
1141 $comment = $3 if defined $3;
1144 $comment = $2 if defined $2;
1147 $comment = $2 if defined $2;
1161 $comment = "";
1179 return ($name, $name_comment, $address, $comment);
1208 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
2312 my $comment = '';
2316 $comment .= substr($rawline, $i, 1);
2320 return $comment;
2819 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
2832 "email address '$email' might be better as '$suggested_email$comment'\n" . $herecurr);
3235 my $comment = "";
3237 $comment = '/*';
3239 $comment = '//';
3241 $comment = '#';
3243 $comment = '..';
3249 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3251 … "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3254 if ($comment !~ /^$/ &&
3255 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
4029 my $comment = trim($1);
4030 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;