diff options
| author | Harri Pasanen <harri.pasanen@trema.com> | 2000-11-09 15:23:28 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-09 13:54:26 +0000 |
| commit | 6acd907dbe656fb008ae2911a88e6334fd920819 (patch) | |
| tree | 1463d8abe5d7ae938801e37ce535a3dcc0b3292f /minimod.pl | |
| parent | 76ba0908d67f4c803fdc5d9b8cb3e8ade0439267 (diff) | |
| download | perl-6acd907dbe656fb008ae2911a88e6334fd920819.tar.gz | |
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
Diffstat (limited to 'minimod.pl')
| -rw-r--r-- | minimod.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/minimod.pl b/minimod.pl index 8efbd31ffc..18b9c0748c 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 ); |