X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Name.xs;h=4957c3592ca0c21bcdec407524495f38cc22be9c;hb=ether%2F5.6-scalar-util-weaken;hp=43bd5bd278976a02638e6d64e5bcfd9ebfd73432;hpb=46141c8ec870ad28e9dbd37d43e042e6f96023a2;p=p5sagit%2FSub-Name.git

diff --git a/Name.xs b/Name.xs
index 43bd5bd..4957c35 100644
--- 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;