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