From 6acd907dbe656fb008ae2911a88e6334fd920819 Mon Sep 17 00:00:00 2001
From: Harri Pasanen <harri.pasanen@trema.com>
Date: Thu, 9 Nov 2000 15:23:28 +0100
Subject: [PATCH] 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
---
 minimod.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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