From b21dc0313d6db8e825aa8b1c17bfe601ada00827 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Tue, 19 Apr 2005 06:38:44 -0500 Subject: pad_compname_type(), takes care of a clunky macro Message-Id: <20050419163844.GA19747@petdance.com> p4raw-id: //depot/perl@24256 --- pad.c | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'pad.c') 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; +} -- cgit v1.2.1