X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Parameters.xs;h=4a44068975153293d5aead369683af5655ac5da1;hb=382626afe1622f3d97b6ad4cf132263b3b7aad4d;hp=c999c9b472a616cb36c29da26572dbc2ce87b5b2;hpb=7193dffba45795c249b405f8636d644261380ff0;p=p5sagit%2FFunction-Parameters.git

diff --git a/Parameters.xs b/Parameters.xs
index c999c9b..4a44068 100644
--- a/Parameters.xs
+++ b/Parameters.xs
@@ -89,8 +89,6 @@ WARNINGS_ENABLE
 
 #define DEFSTRUCT(T) typedef struct T T; struct T
 
-#define UV_BITS (sizeof (UV) * CHAR_BIT)
-
 enum {
 	FLAG_NAME_OK      = 0x01,
 	FLAG_ANON_OK      = 0x02,
@@ -520,8 +518,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);