Bug 40933 - Indents
git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@844 6955db30-a419-402b-8a0d-67ecbb4d7f56master
parent
048be8d5be
commit
262efd1ee0
|
@ -396,7 +396,7 @@ sub wrap_comment
|
||||||
}
|
}
|
||||||
if (length $line)
|
if (length $line)
|
||||||
{
|
{
|
||||||
# If the line starts with ">", don't wrap it. Otherwise, wrap.
|
# If the line starts with ">", don't wrap it. Otherwise, wrap.
|
||||||
if ($line !~ /^>/so)
|
if ($line !~ /^>/so)
|
||||||
{
|
{
|
||||||
my $n = scalar($line =~ s/(\t+)/$1/gso);
|
my $n = scalar($line =~ s/(\t+)/$1/gso);
|
||||||
|
@ -406,15 +406,15 @@ sub wrap_comment
|
||||||
$table = Text::TabularDisplay::Utf8->new;
|
$table = Text::TabularDisplay::Utf8->new;
|
||||||
$table->add(split /\t+/, $line);
|
$table->add(split /\t+/, $line);
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
unless ($line =~ /^[│─┌┐└┘├┴┬┤┼].*[│─┌┐└┘├┴┬┤┼]$/iso)
|
unless ($line =~ /^[│─┌┐└┘├┴┬┤┼].*[│─┌┐└┘├┴┬┤┼]$/iso)
|
||||||
{
|
{
|
||||||
$line =~ s/\t/ /gso;
|
$line =~ s/\t/ /gso;
|
||||||
while (length($line) > $cols && $line =~ s/$re//)
|
while (length($line) > $cols && $line =~ s/$re//)
|
||||||
{
|
{
|
||||||
$wrappedcomment .= $1 . "\n";
|
$wrappedcomment .= $1 . "\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$wrappedcomment .= $line . "\n" if length $line;
|
$wrappedcomment .= $line . "\n" if length $line;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue