X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=minimod.pl;h=39f976395fb7075f0fc82af9f24762b559ac8f47;hb=b1ddf169801254979af17f682f37e96143b35982;hp=82760ee63d0eec24b819e718bc748b56fa27a413;hpb=8cc95fdbe3687330bd987cea170494b4cd263d90;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/minimod.pl b/minimod.pl
old mode 100755
new mode 100644
index 82760ee..39f9763
--- a/minimod.pl
+++ b/minimod.pl
@@ -59,13 +59,13 @@ 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} (pTHX_ CV* cv);\n";
     }
 
     my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
     print $tail1;
 
-    print "\tchar *file = __FILE__;\n";
+    print "\tconst char file[] = __FILE__;\n";
     print "\tdXSUB_SYS;\n" if $] > 5.002;
 
     foreach $_ (@exts){