diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-09 22:04:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-09 22:04:11 +0000 |
| commit | c3f9c4537115a091b52f56681bb8321578dce74c (patch) | |
| tree | 6af65295e002777b772dce93044f042729f7fc0b /MDK/Common/String.pm | |
| parent | ad6cb8f0d2ffa516fb95a657324c2cb2dba805bd (diff) | |
| download | perl-MDK-Common-c3f9c4537115a091b52f56681bb8321578dce74c.tar perl-MDK-Common-c3f9c4537115a091b52f56681bb8321578dce74c.tar.gz perl-MDK-Common-c3f9c4537115a091b52f56681bb8321578dce74c.tar.bz2 perl-MDK-Common-c3f9c4537115a091b52f56681bb8321578dce74c.tar.xz perl-MDK-Common-c3f9c4537115a091b52f56681bb8321578dce74c.zip | |
- DataStructure::uniq : keep the order
- String::warp_text : fixed
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 = $_; |