this is probably the right fix

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

diff --git a/Name.xs b/Name.xs
index 43bd5bd..4957c35 100644 (file)
--- a/Name.xs
+++ b/Name.xs
@@ -11,6 +11,7 @@
 #define NEED_newSVpvn_flags
 #define NEED_gv_fetchpvn_flags
 #define NEED_sv_catpvn_flags
+#define NEED_croak_xs_usage     /* running `perl ppport.h Name.xs` suggests removing this, but don't! see RT#125158 */
 #include "ppport.h"
 
 static MGVTBL subname_vtbl;