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

myconf



    ./configure \
        PYTHON=/usr/bin/python2 \
        --prefix=/usr --libdir=/usr/lib \
        --mandir=/usr/share/man \
        --sysconfdir=/etc \
        --disable-probes \
        --disable-gobject \
        --enable-introspection=no \
        --disable-lua \
        --disable-erlang \
        --disable-php \
        --disable-haskell \
        --disable-ruby \
        --without-java \
        --with-default-backend=direct



error msg



make[2]: Entering directory
`/opt/dnl/PKGBUILDs/kvm/libguestfs/src/libguestfs-1.22.1'
perl /home/ebal/dnl/PKGBUILDs/kvm/libguestfs/src/libguestfs-1.22.1/podwrapper.pl
\
  --section 1 \
  --man guestfs-release-notes.1 \
  --text guestfs-release-notes.txt \
  --html ./html/guestfs-release-notes.1.html \
  --license GPLv2+ \
  guestfs-release-notes.pod
podwrapper.pl: wrote guestfs-release-notes.1
Wide character in print at
/home/ebal/dnl/PKGBUILDs/kvm/libguestfs/src/libguestfs-1.22.1/podwrapper.pl
line 506.
podwrapper.pl: wrote ./html/guestfs-release-notes.1.html
This shouldn't happen at /usr/share/perl5/core_perl/Text/Wrap.pm line 84.
make[2]: *** [stamp-guestfs-release-notes.pod] Error 25
make[2]: Leaving directory
`/opt/dnl/PKGBUILDs/kvm/libguestfs/src/libguestfs-1.22.1'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory
`/opt/dnl/PKGBUILDs/kvm/libguestfs/src/libguestfs-1.22.1'
make: *** [all] Error 2




--
Evaggelos Balaskas - Unix System Engineer
http://gr.linkedin.com/in/evaggelosbalaskas

On Thu, May 30, 2013 at 10:41:37AM +0300, Evaggelos Balaskas
wrote:
> podwrapper.pl: wrote guestfs-release-notes.1
> Wide character in print at
> /home/ebal/dnl/PKGBUILDs/kvm/libguestfs/src/libguestfs-1.22.1/podwrapper.pl
> line 506.
> podwrapper.pl: wrote ./html/guestfs-release-notes.1.html
> This shouldn't happen at /usr/share/perl5/core_perl/Text/Wrap.pm line
84.
> make[2]: *** [stamp-guestfs-release-notes.pod] Error 25
It looks like "Wide character in print" is an unrelated warning.

The real error is in Text::Wrap where we find this obscure piece of
code:

        if ($t =~ /\G([^\n]{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) {
                $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) {
                $r .= $unexpand 
                        ? unexpand($nl . $lead . $1)
                        : $nl . $lead . $1;
                $remainder = $2;
        } elsif ($huge eq 'die') {
                die "couldn't wrap '$t'";
        } elsif ($columns < 2) {
                warnings::warnif "Increasing \$Text::Wrap::columns from
$columns to 2";
                $columns = 2;
                return ($ip, $xp, @t);
        } else {
                die "This shouldn't happen";       <<<---
here
        }

The command we are running is:

$ ./podwrapper.pl --section 1 --man guestfs-release-notes.1 --text
guestfs-release-notes.txt --html html/guestfs-release-notes.1.html --license
GPLv2+ guestfs-release-notes.pod
podwrapper.pl: wrote guestfs-release-notes.1
podwrapper.pl: wrote html/guestfs-release-notes.1.html
podwrapper.pl: wrote guestfs-release-notes.txt

which as you can see works fine for me.

I am guessing you are using Archlinux for this?  Does the
podwrapper.pl command on its own work?

It may be something to do with a too-long line in the file ...

Rich.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
Fedora Windows cross-compiler. Compile Windows programs, test, and
build Windows installers. Over 100 libraries supported.
http://fedoraproject.org/wiki/MinGW

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 ?