Even more Todo.

[p5sagit/p5-mst-13.2.git] / vms / writemain.pl

diff --git a/vms/writemain.pl b/vms/writemain.pl
index 6309107..b08bf1d 100644 (file)
--- a/vms/writemain.pl
+++ b/vms/writemain.pl
@@ -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} (CV* cv);\n"
   }
   # May not actually be a declaration, so put after other declarations
   print OUT "  dXSUB_SYS;\n";