pad_compname_type(), takes care of a clunky macro

Message-Id:  <20050419163844.GA19747@petdance.com>

p4raw-id: //depot/perl@24256

1 files changed, 11 insertions, 0 deletions

diff --git a/pad.c b/pad.c
index 9a63e3e83f..14649fcaa4 100644
--- a/pad.c
+++ b/pad.c
@@ -1599,3 +1599,14 @@ Perl_pad_push(pTHX_ PADLIST *padlist, int depth)
 	AvFILLp(padlist) = depth;
     }
 }
+
+
+HV *
+Perl_pad_compname_type(pTHX_ const PADOFFSET po)
+{
+    SV** const av = av_fetch(PL_comppad_name, po, FALSE);
+    if ( SvFLAGS(*av) & SVpad_TYPED ) {
+        return SvSTASH(*av);
+    }
+    return Nullhv;
+}