Tweak the floating point output routine preferences.

[perl5.git] / minimod.pl

diff --git a/minimod.pl b/minimod.pl
old mode 100755 (executable)
new mode 100644 (file)
index 82760ee..8efbd31
--- a/minimod.pl
+++ b/minimod.pl
@@ -59,7 +59,7 @@ 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 );