X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fwritemain.pl;h=1843b3020654244d54da579bd92fcb6ed63d8d59;hb=410be5dba347e0340059d489e15d034982d73278;hp=b08bf1d9243cd12f43b3204578158abda9242cd6;hpb=20ce7b12268a3d32b5b246928de5084322e709cf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/writemain.pl b/vms/writemain.pl
index b08bf1d..1843b30 100644
--- a/vms/writemain.pl
+++ b/vms/writemain.pl
@@ -34,7 +34,7 @@ if (!$ok) {
 print OUT <<'EOH';
 
 static void
-xs_init()
+xs_init(pTHX)
 {
 EOH
 
@@ -50,7 +50,7 @@ if (@exts) {
   foreach $ext (@exts) {
     my($subname) = $ext;
     $subname =~ s/::/__/g;
-    print OUT "extern void	boot_${subname} (CV* cv);\n"
+    print OUT "extern void	boot_${subname} (pTHX_ CV* cv);\n"
   }
   # May not actually be a declaration, so put after other declarations
   print OUT "  dXSUB_SYS;\n";