Author: stas Date: Sat Nov 27 08:43:38 2004 New Revision: 106732 URL: http://svn.apache.org/viewcvs?view=rev&rev=106732 Log: fix the declaration after code problem
Modified: perl/modperl/trunk/src/modules/perl/modperl_filter.c Modified: perl/modperl/trunk/src/modules/perl/modperl_filter.c Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_filter.c?view=diff&rev=106732&p1=perl/modperl/trunk/src/modules/perl/modperl_filter.c&r1=106731&p2=perl/modperl/trunk/src/modules/perl/modperl_filter.c&r2=106732 ============================================================================== --- perl/modperl/trunk/src/modules/perl/modperl_filter.c (original) +++ perl/modperl/trunk/src/modules/perl/modperl_filter.c Sat Nov 27 08:43:38 2004 @@ -394,15 +394,12 @@ char *code = apr_pstrcat(p, "package ", package_name, ";", init_handler_pv_code, NULL); SV *sv; - + modperl_handler_t *init_handler; + ENTER;SAVETMPS; - sv = eval_pv(code, TRUE); - /* fprintf(stderr, "code: %s\n", code); */ - modperl_handler_t *init_handler = - modperl_handler_new_from_sv(aTHX_ p, sv); - + init_handler = modperl_handler_new_from_sv(aTHX_ p, sv); FREETMPS;LEAVE; if (init_handler) {