develooper Front page | perl.perl5.porters | Postings from August 2013

[perl #119483] [PATCH] 9771f50 B::INVLIST isa B::PV (for now)

Thread Next
From:
Father Chrysostomos via RT
Date:
August 28, 2013 03:35
Subject:
[perl #119483] [PATCH] 9771f50 B::INVLIST isa B::PV (for now)
Message ID:
rt-3.6.HEAD-28376-1377660910-314.119483-15-0@perl.org
On Tue Aug 27 10:08:54 2013, rurban@cpanel.net wrote:
> 
> This is a bug report for perl from rurban@cpanel.net,
> generated with the help of perlbug 1.39 running under perl 5.14.4.
> 
> From 9771f5078eb6c79b0330e2d144a7a44faf0036d6 Mon Sep 17 00:00:00 2001
> From: Reini Urban <rurban@x-ray.at>
> Date: Tue, 27 Aug 2013 11:32:02 -0500
> Subject: [PATCH] B::INVLIST isa B::PV (for now)
> 
> If the compiler stumbles over a B::INVLIST treat it as B::PV
> and do not error.
> Also restore rudimentary B versioning support for BIND and INVLIST.
> 
> ---
>  ext/B/B.pm |    1 +
>  ext/B/B.xs |    5 +++++
>  2 files changed, 6 insertions(+)
> 
> diff --git a/ext/B/B.pm b/ext/B/B.pm
> index 20794fa..4d0df90 100644
> --- a/ext/B/B.pm
> +++ b/ext/B/B.pm
> @@ -48,6 +48,7 @@ push @B::EXPORT_OK, (qw(minus_c ppname save_BEGINs
>  @B::PVNV::ISA = qw(B::PVIV B::NV);
>  @B::PVMG::ISA = 'B::PVNV';
>  @B::REGEXP::ISA = 'B::PVMG' if $] >= 5.011;
> +@B::INVLIST::ISA = 'B::PV'  if $] >= 5.019;
>  @B::PVLV::ISA = 'B::GV';
>  @B::BM::ISA = 'B::GV';
>  @B::AV::ISA = 'B::PVMG';
> diff --git a/ext/B/B.xs b/ext/B/B.xs
> index 62496e2..279be53 100644
> --- a/ext/B/B.xs
> +++ b/ext/B/B.xs
> @@ -21,13 +21,18 @@ typedef FILE * InputStream;
>  
>  static const char* const svclassnames[] = {
>      "B::NULL",
> +#if PERL_VERSION < 19
> +    "B::BIND",
> +#endif
>      "B::IV",
>      "B::NV",
>  #if PERL_VERSION <= 10
>      "B::RV",
>  #endif
>      "B::PV",
> +#if PERL_VERSION >= 19
>      "B::INVLIST",
> +#endif
>      "B::PVIV",
>      "B::PVNV",
>      "B::PVMG",

Thank you.  Applied as 38d2280fe.

-- 

Father Chrysostomos


---
via perlbug:  queue: perl5 status: new
https://rt.perl.org:443/rt3/Ticket/Display.html?id=119483

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About