[perl #111462] refcount warnings from C<use strict> C<our %FIELDS>

On Fri Mar 30 22:31:21 2012, sprout wrote:
> On Fri Mar 30 07:42:51 2012, rmbarker.cpan@btinternet.com wrote:
> > > env PERL_DESTRUCT_LEVEL=1 ./perl -Ilib -MSafe \
> > 	-we 'Safe->new->reval(q(use strict))'
> > Unbalanced string table refcount: (2) for "strict/vars" during global
> > destruction.
> > Unbalanced string table refcount: (2) for "strict/subs" during global
> > destruction.
> > Unbalanced string table refcount: (2) for "strict/refs" during global
> > destruction.
> 
> It’s coming from this croak in op.c:
> 
> #define CHECKOP(type,o) \
>     ((PL_op_mask && PL_op_mask[type])				\
>      ? ( op_free((OP*)o),					\
> 	 Perl_croak(aTHX_ "'%s' trapped by operation mask", PL_op_desc[type]),	\
> 	 (OP*)0 )						\
>      : PL_check[type](aTHX_ (OP*)o))
> 
> I haven’t thought of a way to fix it yet.

Bisect points its finger at a slightly earlier commit than the original
test case:

b3ca2e834c3607fd8aa8736a51aa3a2b8bba1044 is the first bad commit
commit b3ca2e834c3607fd8aa8736a51aa3a2b8bba1044
Author: Nicholas Clark <nick@ccl4.org>
Date:   Fri Mar 31 13:45:57 2006 +0000

    Serialise changes to %^H onto the current COP. Return the compile time
    state of %^H as an eleventh value from caller. This allows users to
    write pragmas.
    
    p4raw-id: //depot/perl@27643

-- 

Father Chrysostomos


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

• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings when Safe encounters prohibited ops by Father Chrysostomos via RT
• Re: [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Rafael Garcia-Suarez
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• Re: [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Rafael Garcia-Suarez
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• Re: [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Rafael Garcia-Suarez
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT
• [perl #111462] refcount warnings from C<use strict> C<our %FIELDS> by Father Chrysostomos via RT