From: Harri Pasanen <harri.pasanen@trema.com>
Date: Thu, 9 Nov 2000 14:23:28 +0000 (+0100)
Subject: The generated boot_* headers are wrong.  Pickier compiler,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6acd907dbe656fb008ae2911a88e6334fd920819;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 );