diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:49:11 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:49:11 -0800 |
commit | d48603664228d505b0c33f97505c2766b85d74a2 (patch) | |
tree | 9b54880a1f2ab9af8a41b57e4fd7b8f63b392a2d /mathoms.c | |
parent | 3bc8ec963e9657121e69386195faa61e46928dda (diff) | |
parent | 662308654967c8d237f3ee651bae9c27cd9feaa2 (diff) | |
download | perl-d48603664228d505b0c33f97505c2766b85d74a2.tar.gz |
[Merge] Inflict PADNAMEs on everyone
This makes PADNAME into a separate type from SV. See
<https://rt.perl.org/rt3/Ticket/Display.html?id=123223> for the
reasoning.
Diffstat (limited to 'mathoms.c')
-rw-r--r-- | mathoms.c | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -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 |