[rt.cpan.org #96279] "Perl -MO=Xref Win32/API.pm" (0.74, 0.77) gives runtime error on Perl 5.12.4

Tue Jun 10 02:20:39 2014: Request 96279 was acted upon.
Transaction: Correspondence added by [email protected]
       Queue: Win32-API
     Subject: "Perl -MO=Xref Win32/API.pm" (0.74, 0.77) gives runtime error on Perl 5.12.4
   Broken in: 0.74, 0.77
    Severity: Normal
       Owner: Nobody
  Requestors: [email protected]
      Status: open
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=96279 >


On Sat Jun 07 01:13:46 2014, [email protected] wrote:
> On Sat Jun 07 00:57:06 2014, [email protected] wrote:
> > This is a B::Xref bug, nothing that Win32::API can fix.
> > I'll try to find a reproducer on a better platform and fix it in
> > core.
> > It sounds very familiar to me.
> 
> A better reproducable bug (e.g. on linux) is with 5.12 and 5.14
> threaded with -e'use ExtUtils::ParseXS'.
> at B/Xref.pm:160
>   next if class($valsv->STASH) eq 'SPECIAL';
> for a B::BM object which is falsely reported as GV in these versions.
> I had to fix that in B::C also.
> 
> The fix is as follows:
> 
> --- /usr/local/lib/perl5/5.14.4/x86_64-linux-thread-multi-
> debug/B/Xref.pm.orig  2013-12-02 17:01:18.000000000 -0600
> +++ /usr/local/lib/perl5/5.14.4/x86_64-linux-thread-multi-
> debug/B/Xref.pm       2014-06-07 00:10:31.418466112 -0500
> @@ -157,6 +157,7 @@
>         for ($ix = 1; $ix < @vallist; $ix++) {
>             my $valsv = $vallist[$ix];
>             next unless class($valsv) eq "GV";
> +           next if $] > 5.010 and $valsv->FLAGS & 0x40000000; # no
> B::BM
>              next if class($valsv->STASH) eq 'SPECIAL';
>             # these pad GVs don't have corresponding names, so same
> @pad
>             # array can be used without collisions


The fix works for me.

Thanks for your time!