MAINT30598 breaks mod_perl2

mod_perl-2.0.3/src/modules/perl/mod_perl.c:
   585  static apr_status_t modperl_sys_term(void *data)
   586  {
   587      MP_init_status = 0;
   588      MP_threads_started = 0;
   589      MP_post_post_config_phase = 0;
   590  
   591      MP_PERL_FREE_THREAD_KEY_WORKAROUND;
   592  
   593      MP_TRACE_i(MP_FUNC, "mod_perl sys term\n");
   594  
   595      modperl_env_unload();
   596  
   597      modperl_perl_pp_unset_all();
   598  
   599      PERL_SYS_TERM();
   600  
   601      return APR_SUCCESS;
   602  }

mod_perl.c: In function 'modperl_sys_term':
mod_perl.c:599: error: 'my_perl' undeclared (first use in this function)
mod_perl.c:599: error: (Each undeclared identifier is reported only once
mod_perl.c:599: error: for each function it appears in.)

Old PERL_SYS_TERM() value (after gcc -E):

    (void)( { int _eC_; if ((_eC_ = pthread_mutex_destroy((&(*Perl_Gop_mutex_ptr(((void *)0))))))) Perl_croak_nocontext("panic: MUTEX_DESTROY (%d) [%s:%d]", _eC_, "mod_perl.c", 599); } ); ;

New PERL_SYS_TERM() value:

    (void)0; (void)( { int _eC_; if ((_eC_ = pthread_mutex_destroy((&(*Perl_Gop_mutex_ptr(((void *)0))))))) Perl_croak_nocontext("panic: MUTEX_DESTROY (%d) [%s:%d]", _eC_, "mod_perl.c", 599); } ); (void)( { PerlIO_teardown(my_perl); (void)( { int _eC_; if ((_eC_ = pthread_mutex_destroy((&(*Perl_Gperlio_mutex_ptr(((void *)0))))))) Perl_croak_nocontext("panic: MUTEX_DESTROY (%d) [%s:%d]", _eC_, "mod_perl.c", 599); } ); } ); ;

• MAINT30598 breaks mod_perl2 by Alexey Tourbin
• Re: MAINT30598 breaks mod_perl2 by Alexey Tourbin