X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FByteLoader%2Fbytecode.h;h=70a7238347540d9fc1c35fff793d05eabdb1af8a;hb=13330d4dbde017a5cb6fe72e1a42ab42c9e98501;hp=a503627b2147996cefeb8de135987de904e645d3;hpb=4ba4de046b58ba69d5377ba3b48b04bbfd30638f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index a503627..70a7238 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -347,7 +347,7 @@ typedef char *pvindex;
 	mg_set(*hv_store(GvHV(gv_fetchpv("SIG", TRUE, SVt_PVHV)),	\
 		name, strlen(name), cv, 0))
 
-#define BSET_xhv_name(hv, name)	Perl_hv_name_set(aTHX_ hv, name, strlen(name), 0)
+#define BSET_xhv_name(hv, name)	Perl_hv_name_set(aTHX_ (HV*)hv, name, strlen(name), 0)
 
 /* NOTE: the bytecode header only sanity-checks the bytecode. If a script cares about
  * what version of Perl it's being called under, it should do a 'use 5.006_001' or