This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #132761) croak_xs_usage() shouldn't accept a THX arguement
authorTony Cook <tony@develop-help.com>
Thu, 25 Jan 2018 03:39:54 +0000 (14:39 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 30 Jan 2018 23:03:53 +0000 (10:03 +1100)
dist/Devel-PPPort/parts/inc/mess

index 9ef95cf..e916ea7 100644 (file)
@@ -206,7 +206,7 @@ mess_sv(pTHX_ SV *basemsg, bool consume)
 #ifndef croak_xs_usage
 #if { NEED croak_xs_usage }
 void
-croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
+croak_xs_usage(const CV *const cv, const char *const params)
 {
     const GV *const gv = CvGV(cv);