On Thu, May 30, 2013 at 01:37:34PM +0300, Evaggelos Balaskas wrote:
 [tmp]> diff -u rwm perl
 --- rwm    2013-05-30 13:24:21.066286908 +0300
 +++ perl    2013-05-30 13:26:27.149615793 +0300
 @@ -1,14 +1,14 @@
 -        if ($t =~ /\G([^\n]{0,$ll})($break|\n+|\z)/xmgc) {
 +        if ($t =~ /\G((?:(?=[^\n])\X){0,$ll})($break|\n+|\z)/xmgc) {
                  $r .= $unexpand
                          ? unexpand($nl . $lead . $1)
                          : $nl . $lead . $1;
                  $remainder = $2;
 -        } elsif ($huge eq 'wrap' && $t =~ /\G([^\n]{$ll})/gc) {
 +        } elsif ($huge eq 'wrap' && $t =~ /\G((?:(?!=[^\n])\X){$ll})/gc)
{
                  $r .= $unexpand
                          ? unexpand($nl . $lead . $1)
                          : $nl . $lead . $1;
                  $remainder = defined($separator2) ? $separator2 : $separator;
 -        } elsif ($huge eq 'overflow' && $t =~
 /\G([^\n]*?)($break|\n+|\z)/xmgc) {
 +        } elsif ($huge eq 'overflow' && $t =~
 /\G((?:(?=[^\n])\X)*?)($break|\n+|\z)/xmgc) {
                  $r .= $unexpand
                          ? unexpand($nl . $lead . $1)
                          : $nl . $lead . $1;
 
 
 > pacman -Qi perl|grep wrap
 
 perl-text-tabs-wrap=2012.0818 
Strangely:
$ rpm -qf /usr/share/perl5/Text/Wrap.pm
perl-5.16.3-242.fc18.x86_64
Inside the actual file it says:
$VERSION = 2009.0305;
So it looks as if the version included in Perl (and hence in Fedora)
is quite old.
Anyhow, does the attached patch help?
Rich.
-- 
Richard Jones, Virtualization Group, Red Hat 
http://people.redhat.com/~rjones
Read my programming blog: 
http://rwmj.wordpress.com
Fedora now supports 80 OCaml packages (the OPEN alternative to F#)