X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=minimod.pl;h=8efbd31ffc5be2ad391ab36139885acbbdeb3868;hb=7bd161a15a083a0aed82ba8e1fa3d6df6f975c68;hp=b9b70715b20ed8cdb61442baea5a2b7240c44518;hpb=9bb683e6b9e9c477f8ad211dd2f5b8c19d1b7bc2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/minimod.pl b/minimod.pl
old mode 100755
new mode 100644
index b9b7071..8efbd31
--- a/minimod.pl
+++ b/minimod.pl
@@ -40,7 +40,7 @@ $tail=<<'EOF!TAIL';
 END
 
 while (<MINI>) {
-    print;
+    print unless /dXSUB_SYS/;
 }
 close MINI;
 
@@ -59,13 +59,15 @@ 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} (CV* cv);\n";
     }
 
     my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
     print $tail1;
 
-    print "	char *file = __FILE__;\n";
+    print "\tchar *file = __FILE__;\n";
+    print "\tdXSUB_SYS;\n" if $] > 5.002;
+
     foreach $_ (@exts){
 	my($pname) = canon('/', $_);
 	my($mname, $cname, $ccode);