view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

         * Better searching for Pad.so in t/99exported-symbols.t
           (thanks ppisar@redhat.com) (RT138320)
         * Gain a (small) runtime performance boost by remembering to set
           PERL_NO_GET_CONTEXT

        [BUGFIXES]
         * Ignore some internal linker symbols in t/99exported-symbols.t
           (RT138315)
         * Remember to bump the version requirement of XS::Parse::Keyword in
           the XS source (RT138318)
         * Make slots visible to string-eval(), PadWalker, perl -d, etc..
           (RT138399)

        Development time for this release was partly sponsored by
        Perl-Verein Schweiz

0.48    2021-08-02
        [CHANGES]
         * Added features to slothooks:
            + New hooks `.seal_slot` and `.post_construct`
            + `.post_initslot` now runs earlier before `:param`

src/class.c  view on Meta::CPAN

#if HAVE_PERL_VERSION(5, 22, 0)
      if(snames) {
        PADNAME *fieldname = snames[i + 1];

        /* Unshare the padname so the one in the methodscope pad returns to refcount 1 */
        PADNAME *newpadname = newPADNAMEpvn(PadnamePV(fieldname), PadnameLEN(fieldname));
        PadnameREFCNT_dec(padnames[padix]);
        padnames[padix] = newpadname;

        /* Turn off OUTER and set a valid COP sequence range, so the lexical is
         * visible to eval(), PadWalker, perldb, etc.. */
        PadnameOUTER_off(newpadname);
        COP_SEQ_RANGE_LOW(newpadname) = cop_seq_low;
        COP_SEQ_RANGE_HIGH(newpadname) = PL_cop_seqmax;
      }
#endif
    }

#ifdef METHSTART_CONTAINS_FIELD_BINDINGS
    if(fieldcount) {
      UNOP_AUX_item *aux;