Fixes for 5.6

[p5sagit/Sub-Name.git] / Name.xs

diff --git a/Name.xs b/Name.xs
index ad30533..59a62e8 100644 (file)
--- a/Name.xs
+++ b/Name.xs
@@ -10,6 +10,7 @@
 #define NEED_sv_2pv_flags
 #define NEED_newSVpvn_flags
 #define NEED_gv_fetchpvn_flags
+#define NEED_sv_catpvn_flags
 #include "ppport.h"
 
 static MGVTBL subname_vtbl;
@@ -50,6 +51,10 @@ static MGVTBL subname_vtbl;
 #define SV_CATBYTES 0
 #endif
 
+#ifndef sv_catpvn_flags
+#define sv_catpvn_flags(b,n,l,f) sv_catpvn(b,n,l)
+#endif
+
 MODULE = Sub::Name  PACKAGE = Sub::Name
 
 PROTOTYPES: DISABLE