diff --git a/perl/MessagePack.c b/perl/MessagePack.c
index c40e46ae..3b33fee1 100644
--- a/perl/MessagePack.c
+++ b/perl/MessagePack.c
@@ -4,6 +4,7 @@ extern "C" {
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
+#define NEED_newCONSTSUB
 #include "ppport.h"
 #ifdef __cplusplus
 };
diff --git a/perl/pack.c b/perl/pack.c
index 5bb667bb..e9a50233 100644
--- a/perl/pack.c
+++ b/perl/pack.c
@@ -27,7 +27,6 @@ extern "C" {
 #define _PACK_WRAPPER(t) msgpack_pack_##t
 #define PACK_WRAPPER(t) _PACK_WRAPPER(t)
 
-// move to pack.c
 static void _msgpack_pack_sv(SV* buf, SV* val) {
     if (val==NULL) {
         msgpack_pack_nil(buf);
diff --git a/perl/unpack.c b/perl/unpack.c
index e5e069ec..fcbd2e27 100644
--- a/perl/unpack.c
+++ b/perl/unpack.c
@@ -5,6 +5,8 @@ extern "C" {
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
+#define NEED_newRV_noinc
+#define NEED_sv_2pv_flags
 #include "ppport.h"
 
 #ifdef __cplusplus
@@ -87,7 +89,7 @@ static inline int template_callback_array(unpack_user* u, unsigned int n, SV** o
 { AV* a = newAV(); *o = (SV*)newRV_noinc((SV*)a); av_extend(a, n); return 0; }
 
 static inline int template_callback_array_item(unpack_user* u, SV** c, SV* o)
-{ av_push((AV*)SvRV(*c), o); SvREFCNT_inc(o); return 0; }  // FIXME set value directry RARRAY_PTR(obj)[RARRAY_LEN(obj)++]
+{ av_push((AV*)SvRV(*c), o); SvREFCNT_inc(o); return 0; }  /* FIXME set value directry RARRAY_PTR(obj)[RARRAY_LEN(obj)++] */
 
 static inline int template_callback_map(unpack_user* u, unsigned int n, SV** o)
 { HV * h = newHV(); *o = newRV_noinc((SV*)h); return 0; }