API functions for accessing the runtime hinthash.

Add hinthash_fetch(sv|pv[ns]) as a replacement for refcounted_he_fetch,
which is not API (and should not be). Also add caller_cx, as the correct
XS equivalent to caller(). Lots of modules seem to have copies of this,
so a proper API function will be more maintainable in future.

1 files changed, 7 insertions, 0 deletions

diff --git a/hv.h b/hv.h
index 468c072bf0..61d0ad945e 100644
--- a/hv.h
+++ b/hv.h
@@ -450,6 +450,13 @@ C<SV*>.
    between threads (because it hangs from OPs, which are shared), hence the
    alternate definition and mutex.  */
 
+#define cop_hints_fetchsv(cop, keysv, hash) \
+    Perl_cop_hints_fetchpvn(aTHX_ (cop), SvPV_nolen(keysv), SvCUR(keysv), \
+	(SvUTF8(keysv) ? HVhek_UTF8 : 0), (hash))
+
+#define cop_hints_fetchpvs(cop, key) \
+    Perl_cop_hints_fetchpvn(aTHX_ (cop), STR_WITH_LEN(key), 0, 0)
+
 struct refcounted_he;
 
 #ifdef PERL_CORE