X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fwritemain.pl;h=a502d6131e1bb1fc9209203aa726fa029d7e0d0d;hb=72b5445bd8dae616be2d969c596f57ff003832e2;hp=0208313288d47ed103b1dbad637d0671230c0b3f;hpb=748a93069b3d16374a9859d1456065dd3ae11394;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/writemain.pl b/vms/writemain.pl
index 0208313..a502d61 100644
--- a/vms/writemain.pl
+++ b/vms/writemain.pl
@@ -18,7 +18,6 @@ open (OUT,">${dir}perlmain.c")
   || die "$0: Can't open ${dir}perlmain.c: $!\n";
 
 while (<IN>) {
-  s/INTERN\.h/EXTERN\.h/;
   print OUT;
   last if /Do not delete this line--writemain depends on it/;
 }
@@ -32,9 +31,18 @@ if (!$ok) {
 }
 
 
+print OUT <<'EOH';
+
+static void
+xs_init()
+{
+EOH
+
 if (@ARGV) {
+  $names = join(' ',@ARGV);
+  $names =~ tr/"//d;  # Plan9 doesn't remove "" on command line
   # Allow for multiple names in one quoted group
-  @exts = split(/\s+/, join(' ',@ARGV));
+  @exts = split(/\s+/,$names);
 }
 
 if (@exts) {
@@ -44,6 +52,8 @@ if (@exts) {
     $subname =~ s/::/__/g;
     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";
   foreach $ext (@exts) {
     my($subname) = $ext;
     $subname =~ s/::/__/g;