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