Lines Matching refs:new_comment

3079 						my $new_comment = $comment;
3084 						$new_comment =~ s/^\((.*)\)$/$1/;
3085 						$new_comment =~ s/^\[(.*)\]$/$1/;
3086 						$new_comment =~ s/^[\s\#]+|\s+$//g;
3088 						$new_comment = trim("$new_comment $cur_name") if ($cur_name ne $new_comment);
3089 						$new_comment = " # $new_comment" if ($new_comment ne "");
3090 						my $new_email = "$email_address$new_comment";
3099 					my $new_comment = $comment;
3103 					$new_comment =~ s/^\[(.*)\]$/$1/;
3104 					$new_comment =~ s/^\/\*(.*)\*\/$/$1/;
3106 					$new_comment = trim($new_comment);
3107 …			$new_comment =~ s/^[^\w]$//; # Single lettered comment with non word character is usually a typo
3108 					$new_comment = "($new_comment)" if ($new_comment ne "");
3109 					my $new_email = format_email($email_name, $name_comment, $email_address, $new_comment);