X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Name.xs;fp=Name.xs;h=59a62e8fe084b4544787338efd7a2860687aa89f;hb=356a8ce39639e3f550f2958c61f3fa596c8cca63;hp=ad305332a7d325ba996bd237ea881fa6157bd6a0;hpb=456cbdf2b59b7c725a0f4119675ef8cb73e4ec83;p=p5sagit%2FSub-Name.git

diff --git a/Name.xs b/Name.xs
index ad30533..59a62e8 100644
--- 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