You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/11/27 17:43:39 UTC
svn commit: r106732 - /perl/modperl/trunk/src/modules/perl/modperl_filter.c
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) {