Libguestfs - May 2013 - Re: libguestfs-1.22.1 compilation error

Yes i am using ArchLinux (what else is there ?)

and i hate/love (mixed feelings) when you have a valid point and give
such pointers!

indeed there is a diff between your perl and mine


[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



i am searching to find out WHY is this happening (and where).


I can patch this for my PKGBUILD - but i would prefer to find a more
suitable solution for everybody.

Can you plz inform my about fedora's perl-text-tabs-wrap version ?

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

On Thu, May 30, 2013 at 11:48:52AM +0100, Richard W.M. Jones
wrote:
> Anyhow, does the attached patch help?
>  podwrapper.pl.in | 3 +++
BTW after applying the patch, you have to rerun configure or do:

  ./config.status podwrapper.pl

Rich.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
libguestfs lets you edit virtual machines.  Supports shell scripting,
bindings from many languages.  http://libguestfs.org