X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Parameters.xs;h=ea7b797010fb8ca50b89b96371b4940c7f102263;hb=e7c6de2cbea5feab6bb571d597714ef7e1fac080;hp=c999c9b472a616cb36c29da26572dbc2ce87b5b2;hpb=11305599a59b5a00d111f396f2b651577a90b80a;p=p5sagit%2FFunction-Parameters.git

diff --git a/Parameters.xs b/Parameters.xs
index c999c9b..ea7b797 100644
--- a/Parameters.xs
+++ b/Parameters.xs
@@ -520,8 +520,9 @@ static SV *reify_type(pTHX_ Sentinel sen, const SV *declarator, const KWSpec *sp
 	SAVETMPS;
 
 	PUSHMARK(SP);
-	EXTEND(SP, 1);
+	EXTEND(SP, 2);
 	PUSHs(name);
+	PUSHs(PL_curstname);
 	PUTBACK;
 
 	n = call_sv(sv, G_SCALAR);