cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[gozer]

gozer       2004/10/04 13:33:48

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  When generating modperl_exports.c, we need to ignore symbols only
  defined under ITHREADS if building against a perl that isn't threaded.
  
  Revision  Changes    Path
  1.82      +3 -0      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.81
  retrieving revision 1.82
  diff -u -r1.81 -r1.82
  --- WrapXS.pm 4 Oct 2004 20:32:37 -0000       1.81
  +++ WrapXS.pm 4 Oct 2004 20:33:47 -0000       1.82
  @@ -1296,6 +1296,9 @@
   
       for my $entry (@$ModPerl::FunctionTable) {
           next if $self->func_is_static($entry);
  +        unless (Apache::Build::PERL_HAS_ITHREADS) {
  +            next if $entry->{name} =~ /^($ithreads_exports)/;
  +        }
           ( my $name ) = $entry->{name} =~ /^modperl_(.*)/;
           print $fh "const void *modperl_hack_$name = (const void *)modperl_$name;\n";
       }