Bug 40933

Bug 53649


git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@344 6955db30-a419-402b-8a0d-67ecbb4d7f56
master
vfilippov 2009-08-31 14:45:33 +00:00
parent bbea536e1a
commit 3ee48444f4
1 changed files with 14 additions and 7 deletions

View File

@ -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;