The generated boot_* headers are wrong. Pickier compiler,

such as KAI C++ will refuse to compile the resulting perlmain.

Subject: [ID 20001109.005] Bug in minimod.pl, perl 5.6.0
Message-Id: <3A0AA550.26D548A3@trema.com>

p4raw-id: //depot/perl@7626

diff --git a/minimod.pl b/minimod.pl
index 8efbd31..18b9c07 100644 (file)
--- 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} (pTHX_ CV* cv);\n";
     }
 
     my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );