diff options
Diffstat (limited to 'MDK/Common/String.pm')
-rw-r--r-- | MDK/Common/String.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/String.pm b/MDK/Common/String.pm index 480c8f4..76cc34c 100644 --- a/MDK/Common/String.pm +++ b/MDK/Common/String.pm @@ -134,7 +134,7 @@ sub warp_text { my ($beg) = /^(\s*)/; my $t = ''; foreach (split /\s+/, $_) { - if (length "$t $_" > $width) { + if (length "$beg$t $_" > $width) { push @l, "$beg$t"; $beg = ''; $t = $_; |