view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Devel::FindRef

TODO: unwrap the save stack to find mortalised scalars (too version dependent).
TODO: hash keys containing \x00 do not display properly.
TODO: get the stack of non-running coroutines?

TODO: And, there's one more thing.. The `sub THREE` in t/02_array_hash_weaken.t
TODO: is reported as
TODO:   `CODE(0xb92810) [refcount 1], which is the global &main::THREE`
TODO:  on perl-5.20.3 or earlier versions, and reported as
TODO:   `CODE(0x1517c60) [refcount 1],  which is referenced by REF(0x1518038)
TODO: [refcount 2], which is the hash member 'THREE' of HASH(0x14f2fe0) [refcount
TODO: 2], which is the global %main::main::`
TODO:  on perl-5.22.3 or later versions. It makes me a little unhappy, but it's
TODO: still acceptable to me~

FindRef.xs  view on Meta::CPAN

                              }

                            break;
                        }

                    if (rmagical)
                      SvRMAGICAL_on (sv);
                  }
              }

            /* look at the mortalise stack of the current coroutine */
            for (i = 0; i <= PL_tmps_ix; ++i)
              if (PL_tmps_stack [i] == targ)
                res_text ("a temporary on the stack");

            if (targ == (SV*)PL_main_cv)
              res_text ("the main body of the program");
          }

        EXTEND (SP, 2);
        PUSHs (sv_2mortal (newRV_noinc ((SV *)about)));