Mathomise pad_compname_type

1 files changed, 16 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index fa60621b96..378c4097a7 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1773,6 +1773,22 @@ Perl_save_re_context(pTHX)
     PERL_UNUSED_CONTEXT;
 }
 
+/*
+=for apidoc Am|HV *|pad_compname_type|PADOFFSET po
+
+Looks up the type of the lexical variable at position I<po> in the
+currently-compiling pad.  If the variable is typed, the stash of the
+class to which it is typed is returned.  If not, C<NULL> is returned.
+
+=cut
+*/
+
+HV *
+Perl_pad_compname_type(pTHX_ const PADOFFSET po)
+{
+    return PAD_COMPNAME_TYPE(po);
+}
+
 
 END_EXTERN_C