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

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.

-- 

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