Bug 40933
Bug 53649 git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@344 6955db30-a419-402b-8a0d-67ecbb4d7f56master
parent
bbea536e1a
commit
3ee48444f4
|
@ -365,15 +365,22 @@ sub wrap_comment
|
|||
foreach my $line (split /\r\n?|\n/, $comment)
|
||||
{
|
||||
# If the line starts with ">", don't wrap it. Otherwise, wrap.
|
||||
if ($line !~ /^>/so)
|
||||
unless ($line)
|
||||
{
|
||||
$line =~ s/\t/ /gso;
|
||||
while (length($line) > $cols && $line =~ s/$re//)
|
||||
{
|
||||
$wrappedcomment .= $1 . "\n";
|
||||
}
|
||||
$wrappedcomment .= "\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
if ($line !~ /^>/so)
|
||||
{
|
||||
$line =~ s/\t/ /gso;
|
||||
while (length($line) > $cols && $line =~ s/$re//)
|
||||
{
|
||||
$wrappedcomment .= $1 . "\n";
|
||||
}
|
||||
}
|
||||
$wrappedcomment .= $line . "\n" if $line;
|
||||
}
|
||||
$wrappedcomment .= $line . "\n" if $line;
|
||||
}
|
||||
|
||||
chomp $wrappedcomment;
|
||||
|
|
Loading…
Reference in New Issue