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#)