X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=minimod.pl;h=18b9c0748cf7536bce9574dd920b64c0c0342459;hb=302d38aa06a9db991c3d8d4d4150b2d3e93e193b;hp=8efbd31ffc5be2ad391ab36139885acbbdeb3868;hpb=20ce7b12268a3d32b5b246928de5084322e709cf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/minimod.pl b/minimod.pl
index 8efbd31..18b9c07 100644
--- a/minimod.pl
+++ b/minimod.pl
@@ -59,7 +59,7 @@ sub writemain{
 	my($mname, $cname);
 	($mname = $pname) =~ s!/!::!g;
 	($cname = $pname) =~ s!/!__!g;
-	print "EXTERN_C void boot_${cname} (CV* cv);\n";
+        print "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n";
     }
 
     my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );