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

diff --git a/vms/writemain.pl b/vms/writemain.pl
index 5f1c8bf..a502d61 100644
--- a/vms/writemain.pl
+++ b/vms/writemain.pl
@@ -36,7 +36,6 @@ print OUT <<'EOH';
 static void
 xs_init()
 {
-    dXSUB_SYS;
 EOH
 
 if (@ARGV) {
@@ -53,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;