develooper Front page | perl.perl5.porters | Postings from November 2000

[ID 20001109.005] Bug in minimod.pl, perl 5.6.0

Thread Next
From:
Harri Pasanen
Date:
November 9, 2000 05:25
Subject:
[ID 20001109.005] Bug in minimod.pl, perl 5.6.0
Message ID:
3A0AA550.26D548A3@trema.com
The generated boot_* headers are wrong.  Pickier compiler, such as KAI
C++ will refuse to compile the resulting perlmain.

Here is a patch:



*** minimod.pl  2000/09/05 16:13:26     5.1
--- minimod.pl  2000/11/09 09:57:54     5.1.4.1
***************
*** 59,65 ****
        my($mname, $cname);
        ($mname = $pname) =~ s!/!::!g;
        ($cname = $pname) =~ s!/!__!g;
!       print "EXTERN_C void boot_${cname} (CV* cv);\n";
      }
 
      my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
--- 59,65 ----
        my($mname, $cname);
        ($mname = $pname) =~ s!/!::!g;
        ($cname = $pname) =~ s!/!__!g;
!       print "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n";
      }
 
      my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s
);


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About